Составить программу с использованием функции и цикла с предусловием на паскале

===== PascalABC.NET =====

begin

 var (a, b, R) := ReadReal3('Введите a, b, R:');

 var (x0, h, xn) := ReadReal3('Введите x0, h, xn:');

 var (x, k) := (x0, 0);

 while x <= xn + h / 2 do

 begin

   if Sqr(x - a) + Sqr(Sin(x) + Cos(x) - b) <= R * R then

     k += 1;

   x += h

 end;  

 Print('Количество значений равно', k)

end.