Program Primer3;
Var N,i: integer;
a,b,max: real;
begin
writeln('Введите кол-во чисел');
readln(N);
writeln('Введите первое число');
readln(a);
max:=a;
for i:=2 to N do
begin
writeln('Введите число');
readln(b);
if b>max then max:=b;
end;
writeln('Наиб.знач. = ', max);
end.