Составить программу, которая вычисляет значение функций - PascalABC.NET

Формулировка задачи:

Составить программу, которая по введенному значению аргумента вычисляет значение функций. А я снова отниму ваше время, но премного благодарна.

Решение задачи: «Составить программу, которая вычисляет значение функций»

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

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

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

Объявлены две переменные типа real: x и y.
Выводится сообщение x= и считывается значение переменной x с помощью функции readln().
С помощью условного оператора if-else проверяется значение переменной x и присваивается значение переменной y в зависимости от интервала, в котором находится x.
Выводится сообщение y= и значение переменной y с помощью функции write().
Завершается работа программы.