Đề: viết chương trình tính diện tích và chu vi của hình chữ nhật và hình tròn với độ dài cạnh được nhập từ bàn phím

*hình chữ nhật

program HCN;

uses crt;

var cd,cr,cv,dt:integer;

  begin

   clrscr;

   write(‘Nhap chieu dai: ‘);   readln(cd);

   write(‘Nhap chieu rong: ‘);   readln(cr);

   cv:=(cd+cr)*2;

   dtL=cd*cr;

   writeln(‘Chu vi la: ‘,cv);

   writeln(dien tich la: ‘,dt);

   readln

end.

*hình tròn

program HT;

uses crt;

var r,cv,dt:real;

  begin

   clrscr;

   write(‘Nhap ban kinh: ‘);   readln(r);

   cv:=r*2*3.14;

   dt:=r*r*3.14;

   writeln(‘Chu vi la: ‘,cv);

   writeln(‘Dien tich la: ‘,dt);

   readln

end.