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

Program N26 (Input, Output);
Label 1, 2;
Var 
X, Y: Integer;
R : Integer;
 
Begin
 
WriteLn ('PASCAL: Проверка попадания точки в окружность.');
Write ('Введите радиус окружности:R = ');
ReadLn (R); 
Write ('Введите абсциссу точки:X = ');
ReadLn (X); 
Write ('Введите ординату точки:Y = ');
ReadLn (Y); 
 
If (X * X + Y * Y) <= R * R Then Goto 1;
 
WriteLn ('Точка (', X, ',', Y, ') не попала в окружность радиуса R = ', R); 
Goto 2;
 
1: WriteLn ('Точка (', X, ',', Y, ') попала в окружность радиуса R = ', R); 
 
2: ReadLn; 
End.