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.