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

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

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.Или так, если старый паскалька

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.