Viết chương trình nhập điểm ktra học kì I môn Toán cho N học sinh , và in ra màn hinh với N và điểm lớn nhất được nhập từ bàn phím

program max_toan;

uses crt;

var A:array[1..100] of real;

      n,i:bbyte;

      max:real;

begin

       clrscr;

       write('Nhap N: ');  readln(n);

       for i:=1 to n do

              begin

                     write('Nhap diem Toan ban thu ',i,': ');  readln(A[i]);

              end;

       max:=A[1];

       for i:=2 to n do

              if A[i]>max then max:=A[i];

       write(max:0:2);

       readln;

end.