Program xx4_22;<br/>
var x,a,b,c,d,Rez:integer;<br/>
BEGIN<br/>
write('Enter x: ');<br/>
readln(x);<br/>
if (x<100)or(x>9999) then<br/>
writeln('ϸ颪ࡢ㯤৩ else<br/>
  begin<br/>
  if (x>=100)and(x<1000) then<br/>
    begin<br/>
    a:=x div 100;<br/>
    b:=(x div 10) mod 10;<br/>
    c:=x mod 10;<br/>
    Rez:=a*b*c;<br/>
    end else begin<br/>
    a:=x div 1000;<br/>
    b:=(x div 100) mod 10;<br/>
    c:=(x div 10) mod 10;<br/>
    d:=x mod 10;<br/>
    Rez:=a+b+c+d;<br/>
    end;<br/>
writeln('Rez=' ,Rez);<br/>
end;<br/>
readln;<br/>
END.<br/>


</p>