Program Hinh_tron;
Uses crt;
Var r,cv : real;
Begin
          Clrscr;
         Write ('Nhap bán kinh của hình tròn: '); 
         Readln (r);
         cv:=r * 3.14 * 2;
         dt:=r * 3.14 * 3.14;
         Writeln ('Chu vi = ',cv);
         Writeln ('Dien tich =',dt);
         Readln;
End.

program Hinh_Tron;
uses crt;
const pi=3.14;
var S,P,r:Real;
begin clrscr;
         writeln('Nhap ban kinh r=');<br />           Readln(r);<br />            P:=r*2*pi;<br />            S:=r*r*pi;<br />            writeln('Chu vi hinh tron P=',P);<br />            writeln('Dien tich hinh tron S=',S);
         readln;
end.