Viết chương trình nhập vào độ dài bán kính của hình tròn. In ra màn hình diện tích, chu vi của đường tròn đó

* 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 dientich;
Uses crt;
Const pi = 3.14;
Var r, S, C :real;
Begin
Clrscr;
Write('Nhap ban kinh r: ');
Readln(r);
S := r*r*pi;

C := 2 *pi*r
Writeln(' dien tich hinh tron la :', S:8:2);

Writeln(' chu vi hinh tron la :', C :8:2);
Readln
End.