Program n_1;
var x, y, z:int64;
begin
read(x, y, z);
if y>x then x:=y;
if z>x then x:=z;
writeln(x);
end.
Ответ:
10000+4000+6000+60+5
Вроде так
Function func1(a As Double) As Double
Dim i As Integer, b As Double
i = 1 - Sgn((Abs(a) - a) / 2)
b = Sqr(a * i)
a = a * 2 + i * (b - 2 * a)
func1 = a
End Function