$#QLinkVN$

CẤU TRÚC CHƯƠNG TRÌNH CỤ THỂ NHƯ SAU:

program HCN;
uses crt;
var a,b: integer;
begin
         clrscr;
         writeln('Nhap do dai cua chieu dai: '); readln(a);
         writeln('Nhap do dai cua chieu rong: '); readln(b);
         delay(2000);
         writeln('Chu vi cua HCN tren la: ',(a+b)*2);
         writeln('Dien tich cua HCN tren la: ',a*b);
         readln;
end.

uses crt;

var a, b, cv, s : integer;

begin

clrscr;

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

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

cv := (a + b)  * 2 ;

s := a * b ;

writeln('chu vi hinh chu nhat la :', cv);

writeln('dien tich hinh chu nhat la :', s);

readln

end.