Напишите ФУНКЦИЮ, которая вычисляет максимальное из трех чисел

var a, b, c: integer;

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

var max: integer;

begin 

if af > bf then max := af else max := bf;

if cf > max then max := cf;

naib := max;

end;

begin

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

readln(a);

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

readln(b);

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

readln(c);

writeln(\'Наибольшим из введённых трёх чисел является \', naib(a, b, c));

end.