2 câu trả lời
var x, y, z: word;
Begin
Write('nhap x, y, z: '); readln(x, y, z);
Write('tich la: ', x*y*z);
Readln
End.
program tih_tich;
uses crt;
var x,y,z:integer;
begin
clrscr;
write('Nhap x: '); readln(x);
write('Nhap y: '); readln(y);
write('Nhap z: '); readln(z);
write('Tich ',x,' x ',y,' x ',z,'= ',x*y*z);
readln;
end.
