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

Если y - это на самом деле v, а v2 - неграмотная запись v², то программа может выглядеть так:// PascalABC.NET 3.1, сборка 1179 от 29.02.2016begin  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.