Текст задания

Разработать алгоритм и написать программу, которая определяет, принадлежат ли точки А1, А2, А3, прямоугольной области. Координаты  точки  А1 вводятся с клавиатуры, а координаты точки А2 увеличиваются на 2, координаты точки А3 увеличиваются в 2 раза, относительно координат точки А1.

Блок-схема алгоритма

Исходный код программы

program Pryamougolnik;
 uses crt;
 var
 x,y,x2,y2,x3,y3:real;
 begin
 clrscr;
 Writeln('Введите координаты точки А1:');
 Write('x=');
 Readln(x);
 Write('y=');
 Readln(y);
  if (x>=-6) and (x<=6) and (y>=-3) and (y<=3) then Writeln('A1(',x:2:2,',',y:2:2,') принадлежит прямоугольнику')
     else Writeln('A1(',x:2:2,',',y:2:2,') не принадлежит прямоугольнику');
  x2:=x+2;
  y2:=y+2;
  if (x2>=-6) and (x2<=6) and (y2>=-3) and (y2<=3) then Writeln('A2(',x2:2:2,',',y2:2:2,') принадлежит прямоугольнику')
     else Writeln('A2(',x2:2:2,',',y2:2:2,') не принадлежит прямоугольнику');
  x3:=x*2;
  y3:=y*2;
  if (x3>=-6) and (x3<=6) and (y3>=-3) and (y3<=3) then Writeln('A3(',x3:2:2,',',y3:2:2,') принадлежит прямоугольнику')
     else Writeln('A1(',x3:2:2,',',y3:2:2,') не принадлежит прямоугольнику');
 readln;
 end.