Используя цикл с параметром, для функции Y=f(X) по данному графику вывести значение Y - Turbo Pascal

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

используя цикл с параметром, для функции Y=f(X) по данному графику вывести значение Y если X=0,0.25,0.5,...19,75.

Решение задачи: «Используя цикл с параметром, для функции Y=f(X) по данному графику вывести значение Y»

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

uses crt;
var i,k:integer;
    x,x1,y:real;
begin
clrscr;
k:=0;
for i:=1 to 80 do
 begin
  x:=(i-1)*0.25;
  if (i+1) mod 17=0 then k:=k+1;
  x1:=x-4*k;
  if(x1>=0)and(x1<=2) then y:=sqrt(4-sqr(x1-2))
  else y:=2*x1-6;
  writeln('x=',x:5:2,' x1=',x1:5:2,' y=',y:5:2);
  if i mod 20=0 then readln;
 end;
readln
end.

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

В начале кода подключается библиотека crt, которая используется для работы с консольным вводом и выводом.
Затем объявляются переменные: i, k, x, x1, y - все они целочисленного типа.
Строка clrscr очищает экран перед началом вывода.
Переменная k инициализируется значением 0.
Затем идет цикл for, который выполняется 80 раз.
Внутри цикла переменная x инициализируется значением (i-1)*0.25.
Если (i+1) mod 17=0 (т.е. i делится на 17 без остатка), то значение переменной k увеличивается на 1.
Переменная x1 инициализируется значением x-4*k.
Если x1>=0 и x1<=2 (т.е. x1 находится в пределах от -4 до 2), то переменная y инициализируется значением sqrt(4-sqr(x1-2)).
Если x1 не удовлетворяет условиям из предыдущего пункта, то переменная y инициализируется значением 2*x1-6.
После окончания внутреннего цикла for выводится информация о текущих значениях переменных: 'x=', x:5:2, ' x1=', x1:5:2, ' y=', y:5:2.
Если значение i равно 20 (т.е. выполнилось 20 итераций внутреннего цикла), то выполняется команда readln, которая позволяет пользователю ввести данные.
Конец программы.