Помогите решить один вариант один вопрос

Question

Помогите решить один вариант один вопрос

---

Comments

вау доска, ностальгия

Answer 1

Первое задание левого варианта

var
    x, y: real;

begin
    readln(x);
    if x > 0 then
        y := sqrt(x + 1)
    else y := 3 * x * x + 4 * x - 5;
    writeln(y);
end.