Viết chương trình Pascal. Tinh chu vi hình vuông, hình chữ nhật, hình tròn. EM ĐANG GẤP

*Chu vi hình vuông:

program CV_Hinh_vuong;

ues crt;

     var s, cv, a: real;

begin

      clrscr;

      writeln('Nhap chieu dai cua canh a: '); readln(a);

      cv:=a*4;

      writeln('Chu vi hinh vuong=', s:4*4);

      clrscr;

      writeln('Chu vi hinh chu nhat la: ', a*4);

      writeln('Dap so: ', a*4);

      readln

end.

*Chu vi hình chữ nhật: 

program CV_hinh_chu_nhat;

uses crt;

      var s, cv, a, b: real;

begin

      clrscr;

      writeln('Nhap chieu dai cua canh a: '); readln(a);

      writeln('Nhap chieu rong cua canh b: '); readln(b);

      cv:=(a+b)*2;

      clrscr;

      writeln('Chu vi hinh chu nhat la: ', (3+2)*2);

      writeln('Dap so: ', (3+2)*2);

      readln

end.

*Chu vi hình tròn:

program CV_hinh_tron;

uses crt;

      var  s, cv, r: real;

begin

      clrscr;

      writeln('Nhap chieu dai cua ban kinh r: '); readln(r);

      cv:2*r*pi;

      clrscr;

      writeln('Chu vi hinh tron la: ', 2*6*3.14);

      writeln('Dap so: ', 2*6*3.14);

      readln

end.