Const
A = 30 ;

B = 9.6 ;

C = “Name”;

Program Circle(input,output);



Const

Pi=3.14;



Var

Radius : integer ;

Circum , area : real ;



Begin

Writeln ( ‘Enter Radius’);

Read ( radius);

Circum := 2*pi* radius ;

Area := pi * radius * radius ;

Writeln (‘The value of circum is’,circum);

Writeln (‘The value of area is’,area);

End.

Program Circle(input,output);



Var

Pi : real ;

Radius : integer ;

Circum , area : real ;

Begin

Write (‘Enter Value of pi :’);

Readln (pi);

Writeln ( ‘Enter Radius’);

Read ( radius);

Circum := 2*pi* radius ;

Area := pi * radius * radius ;

Writeln (‘The value of circum is’,circum);

Writeln (‘The value of area is’,area);

End;