Задание 3. Написать программку, которая по введенному значению доводу вычисляет значение

PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018

Внимание! Если программка не работает, обновите версию!

begin

 var x := ReadReal;

 var y: real;

 if x lt; 0 then y := -(x + 6) / 2

 else

    if x lt; 3 then y := -Sqrt(9 - x * x)

    else

        if x lt; 6 then y := Sqrt(9 - (Sqr(x - 6)))

        else y := 0;

 Println(y)

end.

Вариант с условным выражением

(а то все подумают, что на javascript круче) )))

begin

 var x := ReadReal;

 Println(x lt; 0 ? -(x + 6) / 2 :

   x lt; 3 ? -Sqrt(9 - x * x) :

   x lt; 6 ? Sqrt(9 - (Sqr(x - 6))) : 0)

end.

javascript:var x = prompt("x:"),

y = x lt; 0 ? - (x + 6) / 2 : x lt; 3 ? - Math.sqrt(9 - Math.pow(x, 2)) : x lt; 6 ? Math.sqrt(9 - Math.pow(x - 6, 2)) : 0;

alert(y);