Дано пятизначное число. Что кратно 2: сумма цыфр или произведение. Составте пожалуйста...

Var
sum, com, n:integer;
begin
Read(n);sum:=0;com:=1;
while (n > 0) do begin
    sum:= sum + n mod 10;
    com:= com * (n mod 10);
    n:= n div 10;
end;
if sum mod 2 = 0 then Writeln('Сумма цифр четная');
if com mod 2 = 0 then Writeln('Произведение цифр четное');
if (sum mod 2 = 1)and(com mod 2 = 1) then Writeln('Ни сумма ни произведение не делятся на 2 без остатка');
end.