Viết chương trình tính chu vi diện tích hình tròn Mình cần gấp ạ!!!

Program Hinh_tron;
Uses crt;
Var r,cv : real;
Begin
          Clrscr;
         Write ('Nhap bán kinh của hình tròn: '); 
         Readln (r);
         cv:=r * 3.14 * 2;
         dt:=r * 3.14 * 3.14;
         Writeln ('Chu vi = ',cv);
         Writeln ('Dien tich =',dt);
         Readln;
End.

Viết chương trình tính chu vi diện tích hình tròn

Program Hinh_Tron_Program;
Uses Crt;
Var r,dt,cv:real;
Begin
Clrscr;
Writeln(‘TINH DIEN TICH & CHU VI HINH TRON:’);
Write (‘Nhap ban kinh R=’);readln(r);
dt:=pi*r*r;
cv:=2*pi*r;
Writeln(‘Dien tich hinh tron la:’,dt:6:2); Writeln(‘Chu vi hinh tron la:’,cv:6:2);
Readln;
End.