Question

Ребят помогите пожалуйста!!!!! с программой Paskal.

Ввести четырёх значное число. Определить произведение цифр четырёхзначного числа и определить чётное число или не чётное.

Answer 1

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.