Программа

Program Pilshikov_5_36 (input,output);
{ Дано N точек на плоскости.
  Определить min радиус окружности
  с центром (0,0), внутрь которой
  попадают все точки }
Var N,i:integer;
    X,Y,R,Rxy:real;
BEGIN
  Writeln;
  Write('Введите N ');
  Readln(N);
  R:=0;
  for i:=1 to N do
    Begin
      Write('Введите координату X',i,' ');
      Readln(X);
      Write('Введите координату Y',i,' ');
      Readln(Y);
      Rxy:=Sqrt(Sqr(X)+Sqr(Y));
      if Rxy>R then R:=Rxy
    End;
  Writeln('Радиус ',R)
END.