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

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

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

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

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

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

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

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