{3.28(i)
Nayti proizvedenie cifr zadannogo 4-x znachnogo chisla}
program proizv(input,output);
var a,p:integer;
begin
  write('vvedite chislo ');
  read(a);
  p:=a mod 10*(a div 10 mod 10)*(a div 100 mod 10)*(a div 1000);
  writeln('proizvedenie cifr zadannogo chisla=',p)
end.
