Uses Crt;
Var n: Integer;
         a,b,R,S: Real;
     begin
       ClrScr;
       Writeln('4to nuzno: 1-S krug ili 2-S prjamougoljnika.');
       Readln(n);

       If n=1 Then
         begin
           Write ('R='); Readln(R);
           S:=PI*R*R; Writeln('S kruga =',S:8:2);
         end

       Else If n=2 Then
          begin
            Write ('a='); Readln(a);
            Write ('b='); Readln(b);
            S:=a*b; Writeln('S prjamoug.=',S:8:2);
          end

       Else Writeln('Ne ponjal...');

       Readln;

End.