var i,n: longint;
max: real;
a: array [1..100] of real;
begin
clrscr;
write('Nhap n: '); readln(n);
max:=0;
for i:=1 to n do
begin
write('Nhap diem cua hoc sinh thu ',i);
read(A[i]);
end;
for i:=1 to n do
if A[i]>max then max:=A[i];
writeln;
writeln('Hoc sinh diem cao nhat lop la: ',max:0:4);readln;
end.