Uses Crt;
Var n: Integer;

    a,b,R,S: Real;

    begin
      ClrScr;
      Write('4to ho4ew 1-S Kruga ili 2-S prjamoug');
      Readln;
      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.