Решить задачу. Нужна программа на Паскалепроверить трехзначное число на четность и найти сумму его цифр если оно четное и произведение его числа если оно нечетное

Program n1;
var a,pr: integer;
begin
readln(a);
if (a mod 2=0) then write((a mod 10)+(a mod 100 div 10)+(a div 100)) else
write((a mod 10)*(a mod 100 div 10)*(a div 100));
end.