Дано натуральное число.Вывести произведение его четных цифр (программа)

Uses crt;
var a,pr,n:integer;
begin
     pr:=1;
     write(Введите число: ); readln(a);
     while a>0 do
     begin
          n:=a mod 10;
          if (n mod 2=0) and (n<>0) then pr:=pr*n;
          a:=a div 10;
     end;
     writeln(Произведение четных цифр числа: ,pr);
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.