Viết chương trình nhập vào n số nguyên dương. Tìm số lớn nhất trong các số đó. In kết quả ra màn hình. Bạn nào giúp với, cảm ơn bạn nhiều Mik chưa học lệnh array nha.

Program FNG;
Uses crt;
Var n,max,d,a: longint;
Begin
        Clrscr;
        max:=0; d:=0;
        Write('Nhap n: '); Readln(n);
        While d<=n do
        Begin
                Write('Nhap so nguyen duong: ');
                Readln(a);
                If a>max then max:=a;
                inc(d);
        End;
        Write('Max = ',max);
        Readln
End.

uses crt;

var n, i, m, a : integer;

begin

clrscr;

write('Nhap so n = '); readln(n);

write('Nhap so thu 1 : '); readln(a);

m := a; i := 2;

while i <= n do begin

write('Nhap so thu ', i ,' : '); readln(a);

if a > m then m := a; i := i + 1; end;

write('So lon nhat = ', m);

readln

end.