viết chương trình kt15.pas, 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 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*

* Pascal :
Program Chu_vi_Dien_tich_hinh_tron;
Uses Crt;
Var r,dt,cv:real;
Begin
    Clrscr;
    Writeln(' Tinh dien tich va chu vi hinh tron:');
    Readln('Tinh dien tich va chu vi hinh tron');
    Write ('Nhap ban kinh r =');
    Readln(r);<br />    dt:=pi*r*r;<br />    cv:=2*pi*r;<br />    
    Writeln('Dien tich hinh tron la:',dt:6:2);
    Writeln('Chu vi hinh tron la:',cv:6:2);
    Readln;
End.

Program hinhtron;
Var r , S , P :real;
Begin

    Readln(r);

  S:=pi*r*r;   

P:=2*pi*r;

 
    Writeln('Dien tich hinh tron la:',S:4:0);
    Writeln('Chu vi hinh tron la:',P:4:0);
    Readln;
End.