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

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

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

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

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

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

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

В первой строке объявляются две переменные типа real - x и y.
Далее пользователю предлагается ввести значение переменной x с помощью функции readln().
Затем происходит проверка значения переменной x. Если x меньше или равно нулю, то значение переменной y присваивается как -0.5*x.
Если значение переменной x меньше или равно 2, то значение переменной y присваивается как -sqrt(4-x*x)+2.
Если значение переменной x меньше или равно 4, то значение переменной y присваивается как sqrt(4-sqr(x-2)).
Если ни одно из вышеперечисленных условий не выполняется, то значение переменной y присваивается как -x+4.
В последней строке выводится значение переменной y с помощью функции write(), при этом с помощью конвейера символов ('y=',y:0:1) в одной строке выводится и название переменной и её значение.