1.uses crt;
var a:array[1..1000000]of longint; i,n,tc,l,tam,t,j:longint;
begin
clrscr;
   write('n=');readln(n);
   for i:=1 to n do
      begin
         write('a[',i,']=');readln(a[i]);
         if a[i] mod 2=0 then inc(tc,a[i]);
         if a[i] mod 3=0 then inc(l);
         inc(t,a[i]);
      end;
   writeln('a)');
   for i:=1 to n do write(a[i],' '); writeln;
   writeln('b) ',tc);
   writeln('c) ',l);
   writeln('d) ',t/n:0:2);
   writeln('e) ');
   for i:=1 to n do
   for j:=1 to i do
            if a[j]>a[i] then
               begin
                  tam:=a[j];
                  a[j]:=a[i];
                  a[i]:=tam;
               end;
   for i:=1 to n do write(a[i],' '); writeln;
   for i:=1 to n do write(a[n-i+1],' ');writeln;
readln
end.
3.uses crt;
var s:string; i:longint;
begin
clrscr;
   write('s=');readln(s);
   writeln('a) ',length(s));
   writeln('b) ',s);
   writeln('c) ');
   for i:=1 to length(s) do write(s[length(S)-i+1]);
readln
end.

3.uses crt;
var s:string; i:longint;
begin
clrscr;
   write('s=');readln(s);
   writeln('a) ',length(s));
   writeln('b) ',s);
   writeln('c) ');
   for i:=1 to length(s) do write(s[length(S)-i+1]);
readln
end.