Определить попадание трех точек в заданные области - Pascal ABC

Формулировка задачи:

программа

Решение задачи: «Определить попадание трех точек в заданные области»

Листинг программы

type
  point = record
    x, y: real;
  end;
 
procedure IsArea(P: point);
var
  bln: boolean;
begin
  bln := (abs(p.x) <= 1) and (abs(p.y) >= sqr(p.x)) and (abs(p.y) <= sqrt(abs(p.x)));
  if bln then write(' Попадает')
  else write(' Не попадает')
end;
 
var
  A: point;
  i: byte;
 
begin
  cls;
  for i := 1 to 3 do begin
    writeln('Введите координаты ', i, '-й точки: ');
    write('x = ');
    readln(A.x);
    write('y = ');
    readln(A.y);
    IsArea(A);
    writeln
  end
end.

Объяснение кода листинга программы

Создается тип данных point, который представляет точку с координатами x и y.
Создается процедура IsArea, которая принимает точку в качестве параметра и проверяет, попадает ли эта точка в заданную область.
Создается переменная bln, которая будет использоваться для хранения результата проверки.
В цикле for считываются координаты трех точек от пользователя.
Для каждой точки вызывается процедура IsArea.
Если точка попадает в заданную область, выводится сообщение Попадает. В противном случае выводится сообщение Не попадает.
Выводится сообщение Координаты введены успешно.