uses crt;

var t,v,a: array[1..100] of real;

i,n: integer;

maxt,mint,maxv,minv,maxa,mina,tbt,tbv,tba: real;

begin

clrscr;

write ('nhap n: ');  readln(n);

maxt:=0;

maxv:=0;

maxa:=0;

mint:=0;

minv:=0;

mina:=0;

tbt:=0;

tbv:=0;

tba:=0;

for i:=1 to n do

begin

write ('nhap diem toan hs thu ',i,': ');  readln (t[i]);

write ('nhap diem van hs thu ',i,': ');  readln (v[i]);

write ('nhap diem anh hs thu ',i,': ');  readln (a[i]);

if t[i]>maxt then maxt:=t[i];

if v[i]>maxv then maxv:=v[i];

if a[i]>maxa then maxa:=a[i];

if t[i]>mint then mint:=t[i];

if v[i]>minv then minv:=v[i];

if a[i]>mina then mina:=a[i];

tbt:=tbt+t[i];

tbv:=tbv+v[i];

tba:=tba+a[i];

end;

tbt:=tbt/n;

tbv:=tbv/n;

tba:=tba/n;

writeln ('a/');

writeln ('Toan: ',tbt:1:2);

writeln ('Van: ',tbv:1:2);

writeln ('Anh: ',tba:1:2);

writeln ('b/');

writeln ('Toan: lon nhat: ',maxt:1:2,'  ;  ', nho nhat: ',mint:1:2);

writeln ('Van: lon nhat: ',maxv:1:2,'  ;  ', nho nhat: ',minv:1:2);

writeln ('Anh: lon nhat: ',maxa:1:2,'  ;  ', nho nhat: ',mina:1:2);

readln;

end.