Составить программу с постусловием для нахождения произведения чисел от 1 до 15 , имеющий в остатке от деления на 3 число 2.как я поняла,это числа 2,5,8,11 и 14составить программу не могу. Прошу! от этого задания зависит моя четвертная оценка!

Написал на Паскале uses crt;vari,n:integer;begini:=0;n:=1;Repeatif i mod 3=2 thenbeginn:=n*i;end;i:=i+1;Until i>15;writeln(n);end.