Написать код программы, вычисляющей значения функции y, заданной графически, по значениям аргумента x - Pascal

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

Необходимо написать код программы, вычисляющей значения функции y, заданной графически, по значениям аргумента x, введенным с клавиатуры. P.S. Функция бесконечна

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

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

var x,y:real;
begin
write('x=');
readln(x);
//функция периодическая, ее можно протянуть и до минус бесконечности
while x<0 do
x:=x+4;
while x>4 do
x:=x-4;
if x<=1 then y:=sqrt(1-sqr(x-1))
else if x<=3 then y:=1-sqrt(1-sqr(x-2))
else y:=sqrt(1-sqr(x-3));
writeln('y=',y:0:2);
end.

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

var x,y:real; - объявление переменных x и y типа real
write('x='); - вывод сообщения x=
readln(x); - чтение значения переменной x с консоли
while x<0 do - цикл while x меньше нуля x:=x+4; - увеличение x на 4
while x>4 do - цикл while x больше 4 x:=x-4; - уменьшение x на 4
if x<=1 then y:=sqrt(1-sqr(x-1)) - если x меньше или равно 1, то y равно sqrt(1-sqr(x-1))
else if x<=3 then y:=1-sqrt(1-sqr(x-2)) - иначе, если x меньше или равно 3, то y равно 1-sqrt(1-sqr(x-2))
else y:=sqrt(1-sqr(x-3)); - иначе, y равно sqrt(1-sqr(x-3))
writeln('y=',y:0:2); - вывод значения y с точностью до двух знаков после запятой
end.; - конец программы