// PascalABC.NET
begin
var (x1, y1) := ReadReal2('Координаты точки А:');
var (x0, y0) := ReadReal2('Координаты центра окружности:');
var r := ReadReal('Радиус окружности:');
if Sqr(x1 - x0) + Sqr(y1 - y0) <= r * r then</strong>
Print('Точка принадлежит окружности или ее границе')
else
Print('Точка лежит вне границ окружности')
end.