program oken;
uses crt;
var a,b,c: integer;
function thetich(a,b,c: integer): longint;
begin
thetich:=a*b*c;
end;
begin
clrscr;
write('Nhap chieu dai: '); readln(a);
write('Nhap chieu rong: '); readln(b);
write('Nhap chieu cao: '); readln(c);
write('The tich hinh hop chu nhat: ',thetich(a,b,c));
readln;
end.