program hinhvuong;
uses crt;
var a,cv,s:integer;
begin
         clrscr;
         writeln('Nhap canh a ');
         readln(a);
         cv:=a*4;
          writeln('chu vi hinh vu />         
         s:a*a;
          writeln('dien tich hinh vu />         
          readln
end.
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
program hinhchunhat;
uses crt;
var a,b,cv,s:integer;
begin
        clrscr;
         writeln('Nhap chieu dai a ');
         readln(a);;
         writeln('Nhap chieu rong b ');
         readln(b);
         cv:=(a+b)*2;
         writeln('chu vi hinh chu nhat = ',cv);
         s:=a*b;
         writeln('dien tich hinh chu nhat = ',s);
         readln
end.