Программа проверки попадания точки  с заданными координатами  в прямоугольник  заданной длины и высоты и центром в O(0,0).

Program Pr45 (Input, Output);         

Объявление имени программы

Label 1, 2;            

Блок объявления меток: задаем метки 1 и 2

Var         

Блок объявления глобальных переменных

a, b  : Integer;      

Переменные a и b - длина и высота прямоугольника соответственно

X, Y  : Integer;     

Переменные X и Y - абсцисса и ордината проверяемой точки

Begin    

Начало тела программы

WriteLn ('PASCAL: Проверка попадания точки в прямоугольник.');             

Формулировка цели алгоритма

Write ('Введите длину прямоугольника: A = ');        

Запрос ввода A - длины прямоугольника

ReadLn (A);        

Ввод A

Write ('Введите высоту прямоугольника: B = ');       

Запрос ввода B - высоты прямоугольника

ReadLn (B);         

Ввод B

Write ('Введите абсциссу точки: X = ');       

Запрос ввода X - абсциссы точки

ReadLn (X);         

Ввод X

Write ('Введите ординату точки: Y = ');       

Запрос ввода Y - ординаты точки

ReadLn (Y);         

Ввод Y

If (X < ( - a / 2) ) Or (X > a / 2) Or (Y < ( - b / 2) ) Or (Y > b / 2)           

Проверка на НЕпринадлежность точки (X,Y) заданному прямоугольнику

Then Goto 1;       

Если точка не принадлежит прямоугольнику, то переход на метку 1

WriteLn ('Точка (', X, ',', Y, ') попала в заданный прямоугольник.');             

Вывод сообщения о попадании точки (X,Y) в заданный прямоугольник

Goto 2;  

Переход на метку 2

1: WriteLn ('Точка (', X, ',', Y, ') не попала в заданный прямоугольник.');   

Метка 1: вывод сообщения о НЕпопадании точки (X,Y) в заданный прямоугольник

2: ReadLn;           

Метка 2: ожидание нажатия клавиши Enter для завершения

End.       

Конец программы