Требуется паскаль код и блок-схема. Создайте программу, которая выводит текстовое сообщение, указывающее, попадает

Moroznaya_Roza

8

pascal

program CheckPoint;



var

  x, y: Integer;



begin

  writeln("Введите координаты точки (x, y): ");

  readln(x, y);

  

  if (x >= 50) and (x <= 150) and (y >= 50) and (y <= 150) then

    writeln("Точка попадает в серую область на картинке.")

  else

    writeln("Точка не попадает в серую область на картинке.");

  

  readln;

end.

┌───────────────┐

│ Начало программы │

└───────────────┘

         │

         ▼

┌─────────────────────┐

│ Введите координаты │

│       точки       │

└─────────────────────┘

         │

         ▼

┌─────────────┐

│ Считать x, y │

└─────────────┘

         │

         ▼

┌───────────────────────────┐

│ Проверить, попадает ли    │

│ точка в серую область?    │

└───────────────────────────┘

         │

         ▼

┌───────────────────┐

│ Вывести результат │

└───────────────────┘

         │

         ▼

┌────────────┐

│ Конец работы │

└────────────┘