Смотри вложение..............
Program n1;
var a: byte;
begin
readln(a);
if a=0 then write('ноль');
if a=1 then write('один');
if a=2 then write('два');
if a=3 then write('три');
if a=4 then write('четыре');
if a=5 then write('пять');
end.
// 7
begin
var arr := ArrRandom(13);
arr := arr.OrderByDescending(x->x).ToArray;
arr.Println;
Print('Sum = ', arr.Where(x->x>10).Sum() + newline +
'Count = ',arr.Where(x->x>10).Count);
end.
// 8
begin
var arr := ArrRandom(10);
Sort(arr);
arr.Println;
Print('Sum = ', arr.Where(x -> x mod 5 = 0).Sum() + newline +
'Count = ', arr.Where(x -> x mod 5 = 0).Count);
end.
// 9
begin
var arr := ArrRandom(15);
arr := arr.OrderByDescending(x -> x).ToArray;
arr.Println;
Print('array elements squares sum is = ', arr.Sum(x -> x * x));
end.
Var
A,B,C:real;
Begin
Write('A = ');ReadLn(A);
Write('B = ');ReadLn(B);
Write('C = ');ReadLn(C);
A:=C;
B:=A;
C:=B;
WriteLn('A = ',A);
WriteLn('B = ',B);
WriteLn('C = ',C);
End.
Если имеется ввиду, поменять местами переменные в заданном порядке, то вот:
Var
A,B,C:real;
Begin
Write('A = ');ReadLn(A);
Write('B = ');ReadLn(B);
Write('C = ');ReadLn(C);
Swap(A,C);
Swap(B,A);
Swap(C,B);
WriteLn('A = ',A);
WriteLn('B = ',B);
WriteLn('C = ',C);
End.