{* Задача 462 *}

Unit ZADACH462;
Interface
Implementation
Begin
 writeln('Определить комбинированный тип, описывающий окружность и состоящий из двух полей: «радиус» и «центр». Поле «центр» в свою очередь состоит еще из двух полей: «координата Х» и «координата Y». Ввести информацию по 10 окружностям. Вывести радиус окружности, чей центр самый удаленный от начала координат.');
End.

Program zadach462;
Type circle=Record
            radius:integer;
            centr:Record
            x:integer;
            y:integer;
            End;
            End;
Var cr:Array [1..10] Of circle; n_max,i:integer; max:real;
Begin
  For i:=1 To 10 Do
  Begin
    readln (cr[i].radius);
    with cr[i],centr Do
    Begin
      readln (x);
      readln (y);
    End;
  End;
  max:=0;
  For i:=1 To 10 Do
    If sqrt(sqr(cr[i].centr.x)+sqr(cr[i].centr.y))>max Then
    Begin
      max:=sqrt(sqr(cr[i].centr.x)+sqr(cr[i].centr.y));
      n_max:=i;
    End;
  writeln ('Радиус наиболее удаленной окружности=',cr[n_max].radius);
End.