Помогите юной программистке с решением

[alex_fcsm]

uses crt;
var a:array[1..10,1..2] of real;
    r1,r2,temp:real;
    i,n:integer;

begin
clrscr;
randomize;
for i:=1 to 10 do
 begin
 clrscr;
 readln(a[i,1]);
 readln(a[i,2]);
 end;
n:=0;
for i:=1 to 10 do
 begin
  if a[i,2]<0 then 
     if sqrt(sqr(a[i,1])+sqr(a[i,2]))<=2 then
           if not((a[i,1]>-1)and(a[i,1]<1)and(a[i,2]<0)and(a[i,2]>-1)) then inc(n);

 end;
clrscr;
for i:=1 to 10 do
 begin
  write(a[i,1]:6:1);
  write(a[i,2]:6:1);
  writeln;
 end;
writeln(n);
end.

[Shuma]

спасибо большое , а еще с двумя не поможете?

[alex_fcsm]

Попробуйте сами для приличия

[Shuma]

пробывала ,не получается ,это самое сложное что не получается . всего было 20 задач ,остальные я сделала сама ,остались только эти