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

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.