Program Program1;

function maximum(a,b:integer):integer;
begin
if a>b then result:=a else result:=b;
end;

var
mas:array [1..100] of integer;
i,k,max:integer;
begin
write('Введите кол-во чисел: ');
readln(k);
for i:=1 to k do
begin
write('A',i,'=');
readln(mas[i]);
end;
max:=mas[1];
for i:=2 to k do
max:=maximum(max,mas[i]);
writeln('Максимальное число=',max);
end.

var a:array [1..100] of real;
i,n:integer;
max:real;
Begin
    writeln("Введите кол-во чисел");br />    read(n