программа, вычисляющая произведение четных цифр числа ( Паскаль )

[naBel]

вообшем задали нам написать коснсольное приложение в turbo delphi: Дано натуральное n. Составить программу, вычисляющую произведение четных цифр числа n.
я вроде чё та начал делать но что то не получается

var n,n1:integer;
begin
  write('n=');
  readln(n);
  while n<>0 do begin
 if n div 2=0 then
 writeln('n=');
  end;
  readln;

end.

______________
1. Название темы должно адекватно отражать суть решаемой задачи/проблемы.
На первый раз я исправил.
В дальнейшем темы с подобным названием будут закрываться/удаляться,
а автор такой темы получать штрафы.


2. Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)

Не забывайте об этом!

Модератор.

[VIK_aka_TOR]

ты собстенно берешь само число N..
вот примерное решение...

var
n, s, t :integer;
begin
  readln(n);
  s := 1;
  while n > 0 do
    begin
      t := n mod 10;
      n := n div 10;
      if ((t mod 2 ) = 0) and (t <> 0) then
        s := s * t;
    end;
  writeln(s);  
end.

+ проверка что бы не было нулем.. само число...