Умницы и Умники)))выручайте!

[баста]

задачу нужно решить с помощью цикла:Окружность с центром в начале координат имеет заданный радиус. Вводя последовательно координаты точек, являющихся центрами дру*гих окружностей того же радиуса R, определите, сколько из этих окруж*ностей пересекает заданную.

[maladoy]

имхо

program maladoy;
uses crt;
var x:array [1..100] of real;
    y:array [1..100]  of real;
	i,n,k:integer;r:real;
begin
writeln('vvedite kol-vo okrujnocney');
readln(n);
writeln('vvedite radius');
readln(r);
k:=0;
for i:=1 to n do
begin 
writeln('vvedite x[',i,']=');
readln(x[i]);
writeln('vvedite y[',i,']=');
readln(y[i]);
if (sqrt(sqr(x[i])+sqr (y[i]))<2*r) then
inc(k);
end;
writeln('dannuyu okr-t peresek.',k,'okruj-ey');readln;
end.

[Sazary]

uses crt;
type okr = record
 x : real;
 y : real;
end;
const n=5;
var
i,cnt : integer;
mas : array[1..n] of okr;
gl : okr;
R,a : real;
begin
clrscr;
gl.x := 0;
gl.y := 0;
write('Radius okruzhnosti R= ');
readln(R);
{----}
for i:=1 to n do
  begin
  writeln('Okruzhnost ',i,': ');
  write('x0= '); readln(mas[i].x);
  write('y0= '); readln(mas[i].y);
  writeln('----');
  end;
{---}
cnt := 0;
for i:=1 to n do
  begin
  a := sqrt(sqr(gl.x-mas[i].x)+sqr(gl.y-mas[i].y));
  if a<=2*R then
   inc(cnt);
  end;
writeln('Peresekaet ',cnt,' okruzhnostey');

readln;
end.

[alex_fcsm]

считайте расстояние между центрами окружностей. Если меньше или равно то пересекает

[баста]

спасибо всем огромное)

[Sazary]

maladoy, в вашем варианте, если ввести r=5, x=8,y=8 получится, что окружности пересекаются, а это не так.
+ код с ошибками (не объявлена r, нет ";" после real и ink вместо inc)