Program chuvihinhtron_dientichhinhtron;

Uses crt;

Var   R: integer ;

        S,C : real;

Const   Pi=3,14;

Begin

   clrser;

Writeln(‘R= ‘); Readln(R);

C:=Pi*2*R;

S:=Pi*R*R;

Writeln(‘Chu vi la C= ‘,C);

Writeln(‘Dien tich la S= ‘,S);

Readln