uses crt;
var a : array[1..100] of real;
n,i : integer;
max : real;
begin clrscr;
write('Nhap n :'); readln(n);
for i:=1 to n do begin
write('Nhap a[',i,']='); readln(a[i]); end;
max:=a[1];
for i:=2 to n do if a[i] > max then max:=a[i];
writeln('So cang nang nhat cua hoc sinh trong lop la :',max);
readln
end.