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

помоги https://znanija.com/task/27458356 ( 20+10 баллов

varsum, 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.