Программа

VAR R,RPoint,xt,yt:real; {Радиус окружности, расстояние от центра координат до точки и координаты точки}
BEGIN
  WriteLn;
  WriteLn('Дана окружность с центром в начале координат и радиусом R,');
  WriteLn('дана точка с координатами xt, yt.');
  WriteLn('Определить - лежит ли точка внутри окружности,');
  WriteLn('  на окружности, вне окружности.');
  WriteLn;


  Write('Введите радиус '); {Вывод приглашения}
  ReadLn(R); {Ввод радиуса}
  Write('Введите X координату точки '); {Вывод приглашения}
  ReadLn(xt); {Ввод координаты точки}
  Write('Введите Y координату точки '); {Вывод приглашения}
  ReadLn(yt); {Ввод координаты точки}
  RPoint:=Sqrt(Sqr(xt)+Sqr(yt)); {Вычисление расстояния от 0 до точки}
  {Определение и вывод результата}
  if R>RPoint
  then WriteLn('Точка внутри окружности')
  else if R=RPoint
       then WriteLn('Точка на окружности')
       else WriteLn('Точка вне окружности');

  WriteLn;
  WriteLn('=========================');
  WriteLn('Stud-Prog.narod.ru - помощь студентам по программированию');
  WriteLn('StudDraw.narod.ru - помощь студентам по черчению');
  WriteLn('English-Translator.narod.ru - английский язык: рефераты, переводы');
  WriteLn('+7-(904)-601-65-28 Александр Евгеньевич');
  ReadLn;
END.