Delphi - lab4

program lab4;
Uses Math;
var n, i, found: integer;
  r: real;
  arr: array[1..200] of real;
begin
  writeln('n= ');
  readln(n);

  if n > 200 then
     writeln('error')
  else
  begin
       writeln('r= ');
       readln(r);

       writeln('arr= ');
       for i:=1 to n do
           readln(arr[i]);

       found := 0;
       for i:=1 to (n div 2) do
           if sqrt(power(arr[2*i], 2) + power(arr[2*i-1], 2)) <= r then
              found := found + 1;
       writeln('founded= ', found);
       readln;
  end;
end.