Дано n. найти произведение четных чисел этого числа. решить с паскаля. , у меня вышла такая программа: program pr1; var n,p,m: integer; begin write('n='); readln(n); m: =n; p: =1; while m> 0 do begin if (m mod 10) mod 2=0 then p: =p*m mod 10; m: =m div 10; end; writeln('в числе ',n,' произведение четных цифр = ',p); end. и в ответе, если произведение превышает число 9, выводится его последняя цифра. например: n=881 в числе 881 произведение четных цифр = 4 а на самом деле выходит 8*8=64. надеюсь, кто-нибудь сможет . и, да, мне нужна исключительно в улучшении программы, а не написания новой.