Если в заданном четырехзначном натуральном числе X поменять местами первую и вторую пары цифр, а затем к полученному результату арифметически прибавить первую цифру исходного числа, то в полученном числе Y цифры будут расположены в порядке неубывания. По числу Y определите X. Число должно быть задано в соответствии с условием. В противном случае должен быть выдан результат -1. Язык PASKAL

1) var n,a,kol,sum,i:int64;
begin
read(n);
for i:=1 to n do begin
   read(a);
   if (i mod 2)=1 then begin
                       inc(sum,a);
                       inc(kol);
                       end;
   end;
writeln(sum/kol);
end.
2)var n,a,kol,sum,i,pr:int64;
begin
read(n);
for i:=1 to n do begin
   read(a);
   if (i mod 2)=0 then begin
                       inc(sum,a);
                       end;
   if a<0 then pr:=pr*a;
   if (a mod 2)=1 then inc(kol);
   end;
writeln(sum,' ',pr,' ',kol);
end.
3) var ma,n,a,i:int64;
begin
read(n);
for i:=1 to n do begin
   read(a);
   if (a>ma) then begin
                  ma:=a;
                  end;
   end;
writeln(ma);
end.

Type
    t = record
        name: string[15];
        mishours: integer
    end;

var
    list: array[1..10] of t;
    n, i, k0, k20: integer;

begin
    writeln('Введите количество учащихся');
    readln(n);
    
    k0 := 0;
    k20 := 0;
    for i := 1 to n do
        with list[i] do
        begin
            write('Фамилия имя = ');
            readln(name);
            write('Пропущенных часов = ');
            readln(mishours);
            
            if mishours <= 0 then k0 := k0 + 1;
            if mishours > 20 then k20 := k20 + 1
        end;
    
    writeln('Количество людей без пропусков = ', k0:3);
    writeln('Количество людей с пропусками больше 20 часов =', k20:3)
end.