Определить, сколько значений f(x) при заданных x расположены выше и ниже указанной прямой - Pascal ABC

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

Цикл с предусловием. PascalAbc Значение функции f(x)=0,348+cos(x/4) определены при x=x0(hx)xn. Определить, сколько значений f(x) при заданных x расположены выше и ниже прямой y=0,555 Заранее спасибо, товарищи!

Решение задачи: «Определить, сколько значений f(x) при заданных x расположены выше и ниже указанной прямой»

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

Введите значение x0
Введите значение xn>x0
Введите значение hx<xn-x0
x:=x0;
kn:=0;//точки ниже
kv:=0;//точки выше
while x<=xn do
 begin
  f:=0.348+cos(x/4);
  if f<0.555 then inc(kn);
  if f>0.555 then inc(kv);
  x:=x+hx;
 end;

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

В этом коде происходит вычисление функции f(x) для последовательности значений x от x0 до xn с шагом hx. Значения функции f(x), которые находятся ниже прямой y=0.555, увеличивают счётчик kn, а значения функции f(x), которые находятся выше этой прямой, увеличивают счётчик kv. В конце цикла, после прохождения всех значений x от x0 до xn, выводится количество точек ниже прямой y=0.555 (kn) и количество точек выше этой прямой (kv).