Знак "больше или равно" пишется в том же порядке, что и читается
Сначала знак больше потом равно
" >= "
Заменить 16 строку " if(D=>0) then "
На " if(D>=0) then "
var
x, y: real;
begin
readln(y);
if y >= 0 then x := sqr(y) - sqrt(y) else
x := 3 / y + y;
writeln(x);
end.
2^i=16
16=2^4
i=4
если не ошибаюсь то будет так