Дано N (N больше 0) Натуральных чисел. написать программу, определяющую наибольшее среди них. Число N вводится перед всеми остальными числами

var n, i, max:integer;

a:array[1 ... 10000] of integer;

begin

randomize;

writeln ('Введите кол. натур. чисел: ') ;

read (n) ;

for i:=1 to n do begin

a[i]: = random (n*n) ;

write (a[i],' ') ;

//read (a[i]) ; / / Если нужен ввод с клавиатуры

end;

writeln;

max:=a[1];

for i:=1 to n do begin

if a[i]> = max then

begin

max:=a[i];

end;

end;

writeln ('Наибольшее число:', max) ;

end.