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

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] gt; max then
      max := nums[i];
  writeln(максимальное: , max);
end.