Вычисление значения функции заданной в виде графика - Turbo Pascal (29260)

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

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

Решение задачи: «Вычисление значения функции заданной в виде графика»

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

uses crt;
var r,x,y:real;
    k:byte;
begin
ckrscr;
repeat
write('Введите R>0 r=');
readln(r);
until r>0;
write('x=');
readln(x);
k:=0;
if x<=0 then y:=-0.5*x-3
else if x<=r  then y:=-sqrt(r*r-x*x)
else if x<=2*r then y:=sqrt(r*r-sqr(x-2*r))
else k:=1;
if k=1 then write('Значение y не определено')
else write('y=',y:0:3);
readln
end.

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

В первой строке используется библиотека crt, которая является стандартной для языка Turbo Pascal.
Переменные r, x и y имеют тип real, что означает, что они могут хранить числа с плавающей точкой.
Переменная k имеет тип byte, что означает, что она может хранить целые числа от 0 до 255.
Строка ckrscr; очищает экран перед началом ввода.
В цикле repeat-until запрашивается значение переменной r.
Если значение r больше или равно 0, то переменная y устанавливается равной -0.5*x-3.
Если значение x меньше или равно 0, то переменная y устанавливается равной -sqrt(rr-xx).
Если значение x меньше или равно 2r, то переменная y устанавливается равной sqrt(rr-sqr(x-2*r)).
Если значение k равно 1, то выводится сообщение Значение y не определено.
Если значение k не равно 1, то выводится значение переменной y.
Строка readln используется для чтения ввода пользователя.
Цикл repeat-until продолжается до тех пор, пока значение r больше или равно 0.
По окончании ввода программа завершается.