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
         Writeln ('Chu vi = ',cv);
         Readln;
End.

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;
         Writeln ('Chu vi = ',cv);
         Readln;
End.
vậy mói đúng nhé bn

Program Cv_Hinh_tron; 
Uses Crt;
Var r, cv:real;
Begin 
Clrscr ;
Write ('nhap ban king hinh tron :'); readln (r); 
cv:=r*3.14*2;
writeln ('chu vi =',cv );
readln; 
end.