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

var a, b, c: integer;

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

var min: integer;

begin 

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

if cf lt; 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.