Даны действительные числа 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.2016function min(a,b,c:real):real;begin  if a<b then Result:=a else Result:=b;  if c<Result then Result:=cend;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.23.2 8 -4.8