Подсчитать сколько с кругов с заданными радиусами имеют большую площадь, чем прямоугольник со сторонами A B

var
a,b,i,n,k:integer;
R:array [1..100] of real; s1,s2,pi:real;
begin
writeln('a,b:');
pi:=3.14;
read(a,b);
s1:=1;
k:=0;
s1:=a*b;
writeln('vvedite kolvo krygov:');
read(n);
writeln('vvedite radiusi');
for i:= 1 to n do
read(r[i]);
s2:=pi*sqr(r[i]);
for i:=1 to n do
if s2>s1 then
k:=k+1;
writeln('kolvo:',k);
end.

var
  a,b,i,n,k:integer;
  R:array [1..100] of real;
  s1,s2:real;
begin
  writeln('a,b:');
  read(a,b);
  k:=0;
  s1:=a*b;
  writeln('Количество кругов:');
  read(n);
  writeln('Введите радиусы кругов:');
  for i:= 1 to n do
  begin
    write(i:2,' '); readln(r[i]);
  end;
  for i:=1 to n do
  begin
    s2:=pi*sqr(r[i]);
    if s2>s1 then
      k:=k+1;
  end;
  writeln('kolvo:',k);
end.

var
  a,b,i,n,k:integer;
  R:array [1..100] of real;
begin
  cls;
  write('a,b:'); read(a,b);
  k:=0;
  write('Количество цилиндров: '); read(n);
  write('Введите радиусы кругов: ');
  for i:=1 to n do
  begin
    write('R',i,'='); readln(r[i]);
    if (pi*sqr(r[i]))>(a*b) then
      k:=k+1;
  end;
  writeln('kolvo:',k);
end.