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. скажите, что здесь не так