viết chương trình pascal tính chu vi đường tròn với bán kính nhập từ band phím

program chu_vi;

uses crt;

var r: real;

begin

clrscr;

write ('nhap ban kinh: ');  readln (r);

writeln ('Chu vi hinh tron la: ',r*2*Pi:0:2);

readln;

end.