Question

Ответ если можно в картинке,2 задание

Answer 1

Var x, y: real;
begin
     readln(x);
     if (x < 0) then y := Power(x, 2) + 2
        else if (x <= 4) then y := 2
                else y := sqrt(x);
     writeln(y);
end.