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

Так как язык не указан, то на паскале:
 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.