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

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

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.