Задача о круге на плоскости.

[pdef]

Помогите пожалуйста решить задачу.На "чистом" паскале.В консольном виде.

Напишите программу для подсчёта числа точек с целочисленными координатами,находящихся внутри и на границе круга с заданным радиусом r. Центр которого расположен в произвольной точке плоскости с координатами (x;y)

Описание входа:

На вход программе даются три вещественных числа 0<=r<=1000000,x и y.

Описание выхода:

Выведете количество искомых точек в этом круге.

Пример:

Вход:__________________ Выход:

1 0.5 0.5_______________4

[gamer-25]

Program Krug;
var
  r,x,y: Integer;
  kol: Integer;   // Кол-во точек внутри круга
  x_curr, y_curr: Integer;
  l: Integer;     // Расстояние от центра круга до точки
Begin
  kol:= 0;
  x:= StrToInt(edt_x.Text);
  y:= StrToInt(edt_y.Text);
  r:= StrToInt(edt_r.Text);

  for y_curr:= y-r to y+r do
    for x_curr:= x-r to x+r do
    begin
      l:= Round(sqrt(sqr(abs(x-x_curr)) + sqr(abs((y-y_curr)))));
      if l <= r then
        kol:= kol + 1;
    end;
End.

[pdef]

Допишите пожалуйста условия.У вас нет входа и вывода,и к сожалению "edt_x" - неизвестно программе.

[gamer-25]

Program Krug;
var
  r,x,y: Integer;  // Радиус, Координаты центра окр.
  kol: Integer;    // Кол-во точек внутри круга
  x_curr, y_curr: Integer;
  l: Integer; 
Begin
   Write ('Введите координату x: ');
   Readln (x);
   Write ('Введите координату y: ');
   Readln (y);
   Write ('Введите радиус окружности: ');
   Readln (r);

  kol:= 0;

  for y_curr:= y-r to y+r do
    for x_curr:= x-r to x+r do
    begin
      l:= Round(sqrt(sqr(abs(x-x_curr)) + sqr(abs((y-y_curr)))));
      if l <= r then
        kol:= kol + 1;
    end;

  Write('Количество точек внутри круга ', kol);
end.