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]gt;= max then       
  begin 
         max:=a[i];
  end;
end;

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

end.