Вычислить значение функции, заданной графически - Turbo Pascal (29675)

Вычислить значение функции, заданной графически. (рис. 1)

Листинг программы

var x,y:real;
begin
write('x=');
readln(x);
if x<=0 then y:=-x
else if x<=1 then y:=1-sqrt(1-x*x)
else y:=1;
write('y=',y:0:2);
end.

Объяснение кода листинга программы

Объявляются две переменные типа real: x и y.
Выводится сообщение «x=» и считывается значение переменной x.
Проверяется условие: если x <= 0, то присваивается переменной y значение -x.
Если условие из пункта 3 не выполняется, то проверяется: если x <= 1, то присваивается переменной y значение 1 - sqrt(1 - x*x).
Если условие из пункта 4 не выполняется, то присваивается переменной y значение 1.
Выводится сообщение «y=» и выводится значение переменной y с точностью до двух знаков после запятой.