program dientichHCN;
uses crt;
var chieu_dai,chieu_rong,dientich:integer;
begin
CLRSCR;
writeLN('Nhap chieu_dai, chieu_rong cua HCN');
readLN(chieu_dai,cchieu_rong);
dientich:=chieu_dai*chieu_rong;
writeLN('dientich= ',dientich);
readLN();
end.
Chúc bạn học tốt !!!!!!