PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018
Внимание! Если программа не работает, обновите версию!
begin
var x := ReadReal;
var y: real;
if x < 0 then y := -(x + 6) / 2
else
if x < 3 then y := -Sqrt(9 - x * x)
else
if x < 6 then y := Sqrt(9 - (Sqr(x - 6)))
else y := 0;
Println(y)
end.
Вариант с условным выражением
(а то все подумают, что на javascript круче) )))
begin
var x := ReadReal;
Println(x < 0 ? -(x + 6) / 2 :
x < 3 ? -Sqrt(9 - x * x) :
x < 6 ? Sqrt(9 - (Sqr(x - 6))) : 0)
end.