Напишите программу поиска наибольшего из четырех чисел с использованием подпрограммы поиска наибольшего из трёх чисел.

var a, b, c, d: integer;

function naim (af, bf, cf: integer) : integer;

var min: integer;

begin

if af < bf then min : = af else min : = bf;

if cf < min then min : = cf;

naim : = min;

end;

begin

writeln ('Введите a');

readln (a);

writeln ('Введите b');

readln (b);

writeln ('Введите c');

readln (c);

writeln ('Введите d');

readln (d);

if naim (a, b, c) > d then writeln (naim (a, b, c)) else writeln (d);

end.