Найти максимальное число из пяти данных

Так как язык не указан, то на паскале:

const n=5;

var

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

i, max:integer;

begin

writeln ('Введите пять чисел') ;

for i:=1 to n do

begin

write ('Введите ', i,' число: ') ;

read (a[i]) ;

end;

writeln ('Пять чисел: ') ;

for i:=1 to n do

begin

write (a[i]+' ') ;

end;

writeln;

max:=a[1];

for i:=1 to n do

if a[i] > max then

max : = a[i];

writeln ('Максимальное число: ', max) ;

readln

end.