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

Program Pr45 (Input, Output); 
Label 1, 2;
Var 
a, b: Integer;
X, Y: Integer; 
 
Begin
 
WriteLn ('PASCAL: Проверка попадания точки в прямоугольник.'); 
Write ('Введите длину прямоугольника: A = ');
ReadLn (A);
Write ('Введите высоту прямоугольника: B = '); 
ReadLn (B); 
Write ('Введите абсциссу точки: X = '); 
ReadLn (X); 
Write ('Введите ординату точки: Y = '); 
ReadLn (Y); 
 
If (X < ( - a / 2) ) Or (X > a / 2) Or (Y < ( - b / 2) ) Or (Y > b / 2) 
Then Goto 1; 
WriteLn ('Точка (', X, ',', Y, ') попала в заданный прямоугольник.'); 
Goto 2;
 
1: WriteLn ('Точка (', X, ',', Y, ') не попала в заданный прямоугольник.'); 
 
2: ReadLn; 
End.