Ответ:
мне кто-нибудь поможет ?
скачай и установи 11DiretX
var
x, y: real;
begin
readln(y);
if y >= 0 then x := sqr(y) - sqrt(y) else
x := 3 / y + y;
writeln(x);
end.
0 так как это число вообще без нулей