uses crt;
var a:array[1..20] of longint;
    t:longint; i,d,k:byte;
procedure xuat;
var f: text;
begin
        assign(f,'KQ.txt');
        rewrite(f);
        writeln(f,d);
        writeln(f,t/5:0:3);
        writeln(f,k);
        close(f);
end;
begin
        clrscr;
        t:=0;
        d:=0;
        k:=0;
        for i:=1 to 5 do
         begin
          write('sn[',i,']: ');
          readln(a[i]);
          t:=t+a[i];
          if abs(a[i])>50 then inc(d);
         end;
        for i:=1 to 5 do
         if a[i]>t/5 then inc(k);
        xuat;
end.

uses crt;
var f:text; i,n,d:longint; a:array[1..20]of longint; tb:real;
begin
clrscr;
   for i:=1 to 20 do
      begin
         write('Nhap phan tu thu ',i,': ');readln(a[i]);
         tb:=tb+a[i];
      end;
   assign(f,'output.pas');rewrite(f);
      write(f,'a. ');
      for i:=1 to 20 do 
         if a[i]>50 then write(f,a[i],' ');
      writeln(F); tb:=tb/20;
      writeln(f,'b. ',tb:0:2);
      for i:=1 to 20 do 
         if a[i]>tb then inc(d);
      writeln(f,'c. ',d);
   close(f); 
readln
end.