Написать программу на языке паскаль при помощи подпрограммы функции которая вычисляет минимальное из чисел a b c d

var a, b, c: 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 ('Наименьшим из введённых трёх чисел является ', naim (a, b, c));

end.