Даны действительные числа a, b. получить u = min(a, b-a, b+a), y = min(ab, a+b, a+3), k = min(u+v2, 5, u-v).

// PascalABC.NET 3.1, сборка 1239 от 08.05.2016
function min(a,b,c:real):real;
begin
  if a<b then Result:=a else Result:=b;
  if c<Result then Result:=c
end;

begin
  var a,b:real;
  Write('Введите два числа через пробел: '); Read(a,b);
  var u:=min(a,b-a,b+a);
  var y:=min(a*b,a+b,a+3);
  var k:=min(u+y*y,5,u-y);
  Println(u,y,k)
end.

Тестовое решение
Введите два числа через пробел: 5 8.2
3.2 8 -4.8