program raf105;

const

 n = 5;

var

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

 i,max: integer;

begin

max:= -10000;

writeln('Заполните массив:');

for i:=1 to n do

begin

 readln(a[i]);

 if a[i] > max

   then max:= a[i];

end;

writeln('Наибольший элемент: ',max);

end.

PascalABC 3.4.2