yêu cầu nhập từ bàn phím bán kính hình tròn ( biến r). Tính và in ra màn hình chu vi, diện tích hình chữ nhật có chiều dài là chu vi hình tròn, và chiều rộng là 1/3 chu vi hình tròn. Biết pi=3.14 * đang kt giúp mình với

Program dogiabao;

Uses crt;

Var r,S,C:real;

Begin

Write ('Ban kinh la');

Readln (r);

S:=r*r*3.14;

C:=r*2*3.14;

Writeln ('Chu vi la',C);

Writeln ('Dien tich la',S);

Readln;

End.

Program ct;
uses crt;
var r, dt, cvHT, cvHCN: real;
const pi=3.14;
begin
    clrscr;
    writeln('Nhap R: '); readln(r);
    cvHT:=2*r*pi; cvHCN:=(cvHT+cvHT/3)*2; dt:=cvHT*cvHT/3;
    writeln('Chu vi HCN la: ',cvHCN:5:2);
    writeln('Dien tich HCN la: ',dt:5:2);
    readln;
end.

__________________________

#Duahauvn

#HocTot

#ThiTot