Найти сумму цифр 3-х значного числа, если оно больше 500, если меньше то произведение.

Вот держите:

var   a:integer;
begin     
   readln(a);     
   if a<500 then writeln((a mod 10) + (a div 10 mod 10) + (a div 100))     
   else if a>500 then writeln((a mod 10) * (a div 10 mod 10) * (a div 100));
end.