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

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

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

1)x

2)r

3)y

Объяснение:

Вт

а)какое свойство указывает на назначение объекта: ? ответ: являеться носителем информации

б)какое свойство указывает на форму объекта? ответ: круглый

var

  a: array[1..5]of integer;

  i: integer;

begin

  for i: =1 to 5 do read(a[i]);

for i: =1 to 5 do write(a[i],' ');

writeln;

for i: =1 to 5 do if a[i]> =1024 then writeln(a[i] div 1024);

writeln;

end.