Question

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

Answer 1

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

Answer 2

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