Cho hình hộp chữ nhật của đáy là W, chiều dài là l , chiều cao của hình hộp là H cm ( 0 <W,l,H< 100). Viết chương trình và đưa ra màn hình diện tích toàn phần của hình hộp chữ nhật và thể tích của hình hộp chữ nhật. Dữ liệu là giá trị nguyên, nhập vào từ bàn phím.

program hoidap247;

uses crt;

var w,i,s,h,u,v,d : integer;

begin

Write(' day hinh hop chu nhat la :'); readln(w);

Write(' chieu dai hinh hop chu nhat la :'); readln(i);

Write(' chieu cao hinh hop chu nhat la :'); readln(h);

v:w*i*h

u := 2*h*(w + I);

s := u + 2*w*I;

write(' the tich hinh hop chu nhat la :',v);

write(' dien tich toan phan hinh hop chu nhat la :',s);

readln

end.

program az;

uses Crt;

var W,I,H,S,U,V,D : integer;

begin

Write(' Day hinh hop chu nhat la :'); readln(W);

Write(' Chieu dai hinh hop chu nhat la :'); readln(I);

Write(' Chieu cao hinh hop chu nhat la :'); readln(H);

V := W*I*H;

U := 2*H*(W + I);

S := U + 2*W*I;

Write(' The tich hinh hop chu nhat la :',V);

Write(' Dien tich toan phan hinh hop chu nhat la :',S);

readln

end.