Chương trình trong Free Pascal:

program HCN;

uses crt;

var a, b, P, S: integer

begin

clrscr;

write('Nhap chieu dai HCN: '); readln(a);

write('Nhap chieu rong HCN: '); readln(b);

P:=(a+b)*2; writeln('Chu vi cua HCN la: ', P);

S:=a*b; writeln('Dien tich cua HCN la: ', S);

readln;

end.

Program HCN;
Uses crt;
Var dai,rong,cv,dt: extended;
Begin
        Clrscr;
        Write('Nhap chieu dai: '); Readln(dai);
        Write('Nhap chieu rong: '); Readln(rong);
        cv:=(dai+rong)*2;
        dt:=dai*rong;
        Writeln('Chu vi: ',cv:0:2);
        Write('Dien tich: ',dt:0:2);
        Readln
End.