Определить количество точек, попадающих в область

function area(x,y: real): boolean;
begin
  if (x>=0) and (y>=0) and (x<=1) and (y<=1)
    then area:=true
      else area:=false;
end;
 
var
  n,i,k: integer;
  x,y: real;
begin
  write('Введите количество точек? ');
  readln(n);
  for i:=1 to n do
  begin
    {диапазоны настраивайте по своему вкусу}
    x:=random+random(2); {диапазон от 0 до 2}
    y:=random;           {диапазон от 0 до 1}
    write(x:6:3,'  ',y:6:3);
    if area(x,y) then
    begin
      inc(k);
      writeln('   Попадание');
    end else writeln;
  end;
  if k=0 then writeln('Нет попаданий') else
    writeln(k,' точек попадает в область');
  readln;
end.

procedure area(n: integer);
var
  k,i: integer;
  x,y: real;
begin
  k:=0;
  for i:=1 to n do
  begin
    {äèàïàçîíû íàñòðàèâàéòå ïî ñâîåìó âêóñó}
    x:=random+random(2); {äèàïàçîí îò 0 äî 2}
    y:=random;           {äèàïàçîí îò 0 äî 1}
    write(x:0:6,'  ',y:0:6);
    if (x>=0) and (y>=0) and (x<=1) and (y<=1) then
    begin
      inc(k);
      writeln('  Ïîïàäàíèå');
    end else writeln;
  end;
  if k=0 then writeln('Íåò ïîïàäàíèé') else
    writeln(k,' òî÷åê ïîïàäàåò â îáëàñòü');
end;
 
var
  n,i,k: integer;
begin
  write('Ââåäèòå êîëè÷åñòâî òî÷åê? ');
  readln(n);
  area(n);
  readln;
end.

procedure area(n: integer);
var
  k,i: integer;
  x,y: real;
begin
  k:=0;
  for i:=1 to n do
  begin
    write('Введите координаты точки x, y через пробел: ');
    readln(x,y);
    if (x>=0) and (y>=0) and (x<=1) and (y<=1) then
    begin
      inc(k);
      writeln('  Попадание');
    end;
  end;
  if k=0 then writeln('Нет попаданий') else
    writeln(k,' точек попадает в область');
end;
 
var
  n,i,k: integer;
begin
  write('Введите количество точек? ');
  readln(n);
  area(n);
  readln;
end.

procedure area(n: integer); // процедура принимает параметр - количество точек, задаваемых пользователем
var
  k,i: integer; // объявление челочисленных переменных
  x,y: real;    // объявление вещественных переменных
begin
  k:=0; // изначально обнуляем количество точек
  for i:=1 to n do // от 1 до n - количества точек выполняем цикл
  begin // поехали... =)
    write('Введите координаты точки x, y через пробел: '); // приглашение на ввод
    readln(x,y); // считываем координаты точки
    if (x>=0) and (y>=0) and (x<=1) and (y<=1) then // если координты попадают в область..
    begin
      inc(k); // увеличиваем счетчик
      writeln('  Попадание'); // выводим на экран
    end;
  end;
  if k=0 then writeln('Нет попаданий') else // вывод результатов после выполнения цикла
    writeln(k,' точек попадает в область');
end;
 
var
  n,i,k: integer;
begin
  write('Введите количество точек? ');
  readln(n);
  area(n);
  readln;
end.