ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\", Приём;
ПЕР
x, y, R: ВЕЩ;
УКАЗ
x := Приём.Число();
Вывод.Цепь("^");
y := Приём.Число();
R := 123;
ЕСЛИ x * x + y * y <= R * R ТО<br> Вывод.Цепь("^Точка попадает.")
ИНАЧЕ
Вывод.Цепь("^Точка не попадает.")
КОН
КОН Задание.