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

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.