Program lalala; var n,p:integer; begin write('Введите четырёхзначное значное число');...

Question

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

Comments

Нет ввода числа

Answer 1

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

read(n);