Pascal Ввести четыре числа. Вывести максимальное

Question

Pascal
Ввести четыре числа. Вывести максимальное

Answer 1

Program max;
const
  N = 4;
var
  nums: array [1..N] of integer;
  strs: array [1..N] of string[20] = ('первое', 'второе', 'третье', 'четвёртое');
  i, max: integer;
begin
  for i := 1 to N do
    begin
      write(strs[i], ' число: ')
      readln(nums[i]);
    end;
  max := 0;
  for i := 1 to N do
    if nums[i] > max then
      max := nums[i];
  writeln('максимальное: ', max);
end.