Получить u=min(a,b), v=min(ab,a+b), min(u+v, 3.14) - Turbo Pascal

Формулировка задачи:

даны действительные числа а,в. Получить u=min(a,b) , v=min(ab,a+b) , min(u+v, 3.14)

Решение задачи: «Получить u=min(a,b), v=min(ab,a+b), min(u+v, 3.14)»

Листинг программы

Var
  a,b,u,v,p: Real;
Function Min(x,y: Real): Real;
begin
  If x<y Then
  Min:=x
  Else
  Min:=y;
end;
BEGIN
Write('A= ');
Readln(a);
Write('B= ');
Readln(b);
u:=Min(a,b);
v:=Min(a*b,a+b);
p:=Min(u+v,3.14);
Writeln('u= ',u:5:5);
Writeln('v= ',v:5:5);
Writeln('p= ',p:5:5);
Readln
END.

Объяснение кода листинга программы

В начале кода объявляются переменные a, b, u, v и p типа Real.
Затем определяется функция Min, которая принимает два аргумента типа Real и возвращает минимальное значение из них.
В основной части кода с помощью функции Readln считываются значения переменных a и b.
Затем переменные u и v инициализируются минимальными значениями, полученными от функции Min.
Далее вычисляются значения переменных p, u и v с помощью функций Min и Write.
Наконец, с помощью функции Writeln выводятся значения переменных u, v и p на экран.
Конец программы.