program lalala;
var
n,p:integer;
begin
write('Введите четырёхзначное значное число');
p:=(n div 1000)*(n mod 10);
n:=(n mod 1000 div 10);
p:=p*(n div 10)*(n mod 10);
writeln('произведение равно',p);
end.

Скажите, что здесь не так

write('Введите четырёхзначное значное число'); после этого должно быть

read(n);