Vct tính chu vi diện tích hình tròn khi biết R

Program bai_tap;

Uses crt;

Var S, Cv, R: real;

Begin 

Writeln (‘Nhap ban kinh R=’); 

Readln (R);

Cv:= 2*R*3.14;

S:= R*R*3.14;

Writeln (‘Chu vi hinh tron la:’, Cv:7:2);

Writeln (‘Dien tich hinh tron la:’, S:7:2);

Readln

End.