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. Sửa lỗi sai cho chương trình trên

Program Hinh_tron;

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

Program Hinh_tron;
Uses crt;
Var r, cv, dt : real;
Begin
Clrscr;
Write ('Nhap ban kinh hinh tron: ');
Readln (r);
cv := 2*pi*r;
dt := r*r*3.14;
Writeln('Chu vi = ', cv);
Writeln('Dien tich =', dt);
Readln;
End.