322

Program krug;
Uses crt;
Function pi: real;
Var c: char;
       r, x: real;
Begin
  Write('R=') ;
  Readln(r) ;
  Readln(c) ;
  Case c of
  's' : x:=2*pi*r; writeln('площадь окружности с радиусом',r, ' равна',x) ;
  'v' : x:=pi*sqr(r); writeln('объем шара с радиусом' , r,' равна', x);
  end;
  Readln
End.