var a:array [1..100] of integer;
i,n,max:integer;
begin
writeln ('Введите кол-во чисел');
readln (n);
writeln ('Введите числа');
for i:=1 to n do begin
write ('a[',i,']='); readln (a[i]);
end;
max:=a[1];
for i:=1 to n do 
if a[i]>max then max:=a[i];
writeln ('Максимальное число равно ',max);
end.