Действительные числа a и b. Получить u=min (a,b), u=min (ab, a+b) — Pascal(Паскаль)

var a, b   : REAL;
 
function min (x, y: REAL) : REAL;
begin
  if x>y then min := y else min := x;
end;
 
begin
  Write('Введите a : '); ReadLn(a);
  Write('Введите b : '); ReadLn(b);
 
  WriteLn;
 
  WriteLn('min(a,b) = ', min(a,b):2:2);
  WriteLn('min(a*b,a+b) = ', min(a*b,a+b):2:2);
 
  ReadLn;
end.