Проверить 3-ех значеное на честность и на сумму его цифр,если четн, если нет то произведение его цифр

var n:integer;beginWrite('Введите число='); Readln(N);if odd(n) then beginWriteln('сумма цифр=', ((N mod 10)+((N div 10) mod 10)+ (N div 100));endelse Writeln('произведение цифр',  ((N mod 10)*((N div 10) mod 10)* (N div 100));end.