Bạn phải cho biết R là bán kính hay là đường kính thì mới giải được nhé.
uses crt;
var r,cv,dt:real;
begin
clrscr;
write('nhap ban kinh:'); readln(r);
cv:=2*r*pi;
writeln('chu vi hinh tron la: ',cv:10:3);
dt:=sqr(r)*pi;
writeln('dien tich hinh tron la: ',dt:10:3);
readln;
end.