Написать программу на языке паскаль при помощи подпрограммы функции которая вычисляет минимальное из чисел 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.