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