*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.

uses crt;

var r,a,b,s1,s2,p1,p2: real;

begin

clrscr;

write ('nhap chieu dai: ');  readln (a);

write ('nhap chieu rong: ');  readln (b);

write ('nhap ban kinh: ');  readln (r);

s1:=a*b;

s2:=r*r*Pi;           {trong pascal đã có sẵn sôs Pi}

p1:=(a+b)*2;

p2:=2*r*Pi;

writeln ('dien tich HCN: ',s1:1:2);

writeln ('chu vi HCN: ',p1:1:2);

writeln ('dien tich hinh tron: ',s2:1:2);

writeln ('chu vi hinh tron: ',p2:1:2);

readln;

end.

CHÚC BẠN CÓ MỘT CƠN MƯA ĐIỂM TỐT TRONG KÌ THI HKI NHÉ !!!!