помогите дописать программу на паскале,заранее пасибо

Question

Justinas · Accepted Answer

repeat 
a:=N mod 10; 
if a div 2 0 then P:=P*a; 
N:=N div 10; 
until N=0; 
 
Не нужны операторы блока "begin..end" 
и не забудьте до цикла проверить N>0, потому что хотя бы один раз цикл выполнится обязательно.