program dangvui;
uses crt;
var max: real;
    i,n: integer;
    tb: array[1..100] of real;
begin
clrscr;
max:=0;
write('Nhap so hoc sinh:');   readln(n);
for i:=1 to n do
begin
write('Nhap ban thu ',i,': ');  readln(tb[i]);
if max<tb[i] then max:=tb[i];
end;
write('Diem cao nhat la: ', max:10:2);
readln;
end.