Турбопаскаль или абс паскаль. Даны действительные числа a, b. Получить u = min(a, b-a), y...

Question

Турбопаскаль или абс паскаль. Даны действительные числа a, b. Получить u = min(a, b-a), y = min(ab, a+b),
k = min(u+v2, 3.14).

Answer 1

Если y - это на самом деле v, а v2 - неграмотная запись v², то программа может выглядеть так:

// PascalABC.NET 3.1, сборка 1179 от 29.02.2016
begin
  var a,b:real;
  Read(a,b);
  var u:=Min(a,b-a);
  var v:=Min(a*b,a+b);
  var k:=Min(u+v*v,3.14);
  Println(u,v,k)
end.