найти произведение всех целых чисел от а до 50 кратных 3 но не кратных 2

Ваша программа дает верные ответы только для a, большего 9 из-за потерь разрядов при умножении чисел типа integer.

Program n1;var a,i,p: integer;beginreadln(a);p:=1;for i:=a to 50 doif (i mod 3=0) and (i mod 2<>0)then p:=p*i;writeln(p);end.