program baicogiao;
uses crt;
var x,y,z, T : real;
begin
clrscr;
write('nhap vao x = ');   readln(x);
write('nhap vao y= ');  readln(y);
write('nhap vao z=');   readln(z);

T:=x*y*z
writeln('Tich cua 3 so la ' ); readln(T);
writeln('x*y*z=',x*y*z);
readln
end.

Bài làm của bạn đúng hết nha nhưng chỉ bị dư 1 câu lệnh end. ở dưới cùng thôi

_____________________________________________________

Nhưng mình có 1 chút góp ý như sau:

Hai câu lệnh này của bạn có 1 chút hơi quần 1 xíu, sẽ khiến cô giáo chấm bài hơi lag đấy!

          writeln('tich cua z, y va z la : ' ); readln;

          writeln('x*y*z=',x*y*z);

Thay vào đó, sau khi bạn in ra màn hình xâu 'tich cua z, y va z la : ' thì bạn in thẳng luôn kết quả ra luôn

              => Writeln('tich cua z, y va z la : ',x*y*z );

Vì đấy chỉ là ý kiến cá nhân của mình thôi, nếu như bạn vẫn muốn làm cách cũ của bạn thì bạn cứ làm nhé