Tính hình hộp
program hinh;
uses crt;
var a,b,d,k: real;
begin
writeln('nhap cac canh a,b,c : '); readln(a,b,c);
k:=a*b*c;
writeln('dien tich hinh hop la: ',k);
readln;
end.
.
.
.
chu vi hình chữ nhật
program from_saymethesixman102;
uses crt;
var b,a,c : real;
begin
write('nhap chieu dai, chieu rong: '); readln(a,b);
c=2*a+2*b;
writeln('chu vi hinh chu nhat la: ',c);
readln;
end.
