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

//FPC 2.6.4var n: integer;function prod(a: integer): integer;var p: integer;beginp:=1;repeatp:=p*(a mod 10);a:=a div 10;until a=0;result:=p;end;function sum(a: integer): integer;var s: integer;begins:=0;repeatinc (s, a mod 10);a:=a div 10;until a=0;result:=s;end;beginreadln (n);if n mod 2 = 0 then write (sum(n)) else write (prod(n));end.