Dayana3

var
  s, l, r, d: real;
  k: integer;

begin
  readln(k);
  case k of
    1:
      begin
        readln(R);
        D := 2 * r;
        L := 2 * pi * r;
        s := pi * sqr(r);
        writeln('r=', r, ' ', 'd=', d, ' ', 'L=', l, ' ', 's=', s);
      end;
    2:
      begin
        readln(D);
        r := d / 2;
        L := 2 * pi * r;
        s := pi * sqr(r);
        writeln('r=', r, ' ', 'd=', d, ' ', 'L=', l, ' ', 's=', s);
      end;
    3:
      begin
        readln(L);
        R := L / (2 * r);
        D := 2 * r;
        s := pi * sqr(r);
        writeln('r=', r, ' ', 'd=', d, ' ', 'L=', l, ' ', 's=', s);
      end;
    4:
      begin
        readln(s);
        R := sqrt(s / pi);
        D := 2 * r;
        L := 2 * pi * r;
        writeln('r=', r, ' ', 'd=', d, ' ', 'L=', l, ' ', 's=', s);
      end;
  end;
end.