Написать программу, которая по введенному значению аргумента вычисляет значение функции - Pascal ABC (12857)

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

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

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

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

const r=3;
var x,y:real;
begin
write('x=');
readln(x);
if x<=-4*r/3 then y:=-r
else if x<=-r then y:=2*x+2*r
else if x<=r then y:=sqrt(r*r-x*x)
else if x<=8*r/3 then y:=3*x/5-3*r/5
else y:=r;
write('y=',y:0:2);
end.

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

const r=3; - объявляется константа r со значением 3
var x,y:real; - объявляются переменные x и y типа real
begin - начинается блок кода
write('x='); - выводится сообщение x=
readln(x); - считывается значение переменной x с консоли
if x<=-4r/3 then y:=-r - если значение x меньше или равно -4r/3, то значение y устанавливается равным -r
else if x<=-r then y:=2x+2r - иначе, если значение x меньше -r, то значение y устанавливается равным 2x+2r
else if x<=r then y:=sqrt(rr-xx) - иначе, если значение x меньше или равно r, то значение y устанавливается равным sqrt(rr-xx)
else if x<=8r/3 then y:=3x/5-3r/5 - иначе, если значение x меньше или равно 8r/3, то значение y устанавливается равным 3x/5-3r/5
else y:=r; - иначе, если значение x больше 8*r/3, то значение y устанавливается равным r
write('y=',y:0:2); - выводится сообщение y= с указанным форматом
end.; - заканчивается блок кода