Составить блок-схему и программу вычисления величины y при заданном значении аргумента - Free Pascal

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

Для функции y = y(x), заданной графически, построить аналитическую зависимость. Составить блок-схему и программу вычисления величины y при заданном значении аргумента. Помогите пожалуйста. (Ссылка на сторонний ресурс удалена, контент скопирован на форум)

Решение задачи: «Составить блок-схему и программу вычисления величины y при заданном значении аргумента»

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

var r,x,y:real;
begin
repeat
write('Введите радиус R>0 r=');
readln(r);
until r>0;
write('Введите значение аргумента x=');
readln(x);
if x<-r then y:=-x-r
else if x<r then y:=-sqrt(r*r-x*x)
else y:=x-r;
write('y=',y:0:2);
readln
end.

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

Объявлены три переменные: r, x, y (строки 1-3)
Введен цикл repeat-until для контроля ввода (строка 5)
В каждой итерации цикла пользователю предлагается ввести значение радиуса R (строка 6)
Если R больше нуля, то переходят к следующему шагу, иначе цикл продолжается (строка 7)
Пользователю предлагается ввести значение аргумента x (строка 8)
Если x меньше -R, то y присваивается значение -x-r (строка 9)
Если x меньше или равно R, то вычисляется значение y как квадратный корень из (RR)-(xx) (строка 10)
В противном случае y присваивается значение x-R (строка 11)
Выводится значение y с точностью до двух знаков после запятой (строка 12)
Программа ожидает нажатия любой клавиши (строка 14)