Hình chữ nhật:

Program HINH_CHU_NHAT;
Uses Crt;
Var a,b,s,c: real;
Begin

Clrscr;
Writeln(‘ TINH DIEN TICH & CHU VI HINH CHU NHAT:’); 
Writeln(‘--------------------------------------------------------------‘); 
Write('Nhap chieu dai='); readln(a);
Write('Nhap chieu rong=');readln(b);
s:=a*b;
c:=(a+b)*2;
Writeln('Dien tich hinh chu nhat la:’,s:6:2); 
Writeln('Chu vi hinh chu nhat:',c:6:2); 
Readln;

Hình vuông :

PROGRAM HINH VUONG; 
{Nhap canh a cua hinh vuong. Tinh chu vi, dien tich cua hinh vuong ay} 
VAR a:real; 
BEGIN 
Write('Nhap canh a: ');readln(a); 
Writeln; 
If a>0 then 

>> Diện tích hình vuông:

program DT_hinh_vuong;

ues crt;

      var s, a: real;

begin

      clrscr;

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

      s:=a*a;

      clrscr;

      writeln('Dien tich hinh vuong la: ', a*a);

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

      readln

end.

>> Diện tích hình chữ nhật:

program DT_hinh_chu_nhat;

ues crt;

      var s, a, b: real;

begin

      clrscr;

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

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

      s:=a*b;

      clrscr;

      writeln('Dien tich hinh chu nhat la: ', a*b);

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

      readln

end.