Даны целые числа a, b. Получить: f=min(u+v²,3.14)

function min(a,b: integer): integer;
begin
if a>b then min:=b
else min:=a;
end;
 
var a,b,u,v,f: integer;
begin
write('Ââåäèòå ÷èñëî à: '); readln(a);
write('Ââåäèòå ÷èñëî b: '); readln(b);
 
u:=min(a,b);
v:=min(a*b,a+b);
f:=min(u+v*v, {3.14 âîò çäåñü ó òåáÿ öåëûå ñ äðîáíûì ñðàâíèâàþòñÿ, óòî÷íè çàäàíèå} 3);
 
writeln('a=',a);
writeln('b=',b);
writeln('u=',u);
writeln('v=',v);
writeln('f=',f);
end.

function min(a,b: integer): integer;
begin
if a>b then min:=b
else min:=a;
end;
 
var a,b,u,v,f: integer;
begin
write('Введите число а: '); readln(a);
write('Введите число b: '); readln(b);
 
u:=min(a,b);
v:=min(a*b,a+b);
f:=min(u+v*v, {3.14 вот здесь у тебя целые с дробным сравниваются, уточни задание} 3);
 
writeln('a=',a);
writeln('b=',b);
writeln('u=',u);
writeln('v=',v);
writeln('f=',f);
end.

{Функция нахождения минимального из двух чисел a и b. Возвращает то, которое меньше}
function min(a,b: integer): integer;
begin
if a>b then min:=b
else min:=a;
end;
 
 
var a,b,u,v,f: integer;
begin
{Ввод чисел a и b}
write('Введите число а: '); readln(a);
write('Введите число b: '); readln(b);
 
{Подсчет u,v и f по формулам, данным в задании. То, что и требуется сделать в задании}
u:=min(a,b);
v:=min(a*b,a+b);
f:=min(u+v*v, {3.14 вот здесь у тебя целые с дробным сравниваются, уточни задание} 3);
{Вывод чисел a,b и требуемых результатов}
writeln('a=',a);
writeln('b=',b);
writeln('u=',u);
writeln('v=',v);
writeln('f=',f);
end.