Ребят помогите пожалуйста!!!!! с программой Paskal.Ввести четырёх значное число....

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.

Comments

var
a, b: word;

begin
b := 1;
readln(a);
if (a mod 2 = 0) then
writeln('Четное')
else
writeln('Нечётное');
while (a > 0) do
begin
b := b * (a mod 10);
a := a div 10;
end;
writeln(b);
end.

Или так, если старый паскалька