uses crt;
var i,n:integer;

max:real;
a:array[1..100] of real;
begin
clrscr;
write('nhap so hs:');readln(n);
max:=0;
for i:=1 to n do
begin
 write('nhap so diem cua ban hs thu ',i,':');
 readln(a[i]);
 if max<a[i] then max:=a[i];
end;
write('diem ban cao nhat la:',max);
readln;
end.

(mong dc 5*+hay nhất)

program oken;
uses crt;
var a: array [1..100] of real;
    i,n,dy,dtb,dk,dg:integer;
begin
        clrscr;
        write('Co bao nhieu ban can nhap diem: '); readln(N);
        for i:=1 to n do
                begin
                        write('nhap diem ban thu ',i,': ');
                        readln(a[i]);
                        if a[i]<5 then
                                dy:=dy+1
                        else if a[i]<6.4 then
                                dtb:=dtb+1
                        else if a[i]<7.9 then
                                dk:=dk+1
                        else
                                dg:=dg+1;
                end;
        writeln('So ban hoc yeu: ',dy);
        writeln('So ban hoc trung binh: ',dtb);
        writeln('So ban hoc kha: ',dk);
        writeln('so ban hoc gioi: ',dg);
        readln;
end.