Bài 1
var cd,cr,s,p:integer;
begin
write('Nhap vao chieu dai = ');readln(cd);
write('Nhap vao chieu rong = ');readln(cr);
p := (cd+cr)*2;
s := cd*cr;
writeln('Chu vi HCN = ',p);
writeln('Dien tich HCN = ',s);
readln;
end.
Bài 2
var cd,cr,s,p:integer;
begin
write('Chieu dai = 5');cd := 5; writeln;
write('Chieu rong = 10');cr := 10; writeln;
p := (cd+cr)*2;
s := cd*cr;
writeln('Chu vi HCN = ',p);
writeln('Dien tich HCN = ',s);
readln;
end.