Спрограммой paskal. ввести четырёх значное число. определить произведение цифр четырёхзначного числа и определить чётное число или не чётное.

var
  a, b: word;
  i: byte;

begin
  b := 1;
  readln(a);
  writeln((a mod 2 = 0 ? ' Ч' : 'Не ч') + 'ётное');
  for i := 0 to 3 do
    b *= a mod round(power(10, i + 1)) div round(power(10, i));
  writeln(b);
end.