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

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.