Дано 5 целых чисел. Напиши программу нахождения наибольшего среди них.

Const n = 5;

var

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

i, max:integer;

begin

writeln ('Введите 1 элемент массива') ;

readln (a[1]) ; max:=a[1];

for i:=2 to n do begin

writeln ('Введите ', i,' элемент массива') ;

readln (a[i]) ;

if a[i]>max then max : = a[i];

end;

writeln ('Максимальный элемент массива равен ', max) ;

end