Program CV_DT_Hinh_tron;
Uses crt;
Const Pi = 3.14;
Var R: Integer;
      S,V: Real;
Begin
    Clrscr;
    Writeln('Chuong trinh tinh Chu vi & Dien tich hinh tron');
    Writeln('Chuong trinh tinh Chu vi & Dien tich hinh tron');
    Write('Nhap ban kinh R='); Readln(R);<br />    C:= 2*Pi*R;<br />    S:= Pi*R*R;<br />    Writeln('Chu vi hinh tron la:',C:8:2);
    Writeln('Dien tich hinh tron la:',S:8:2);
    Write('Nhan Enter de ket thuc');
    Readln
End.