Нужно написать программу которая определяет произведение всех чисел кратных 6 и заканчивающиеся на 4

Var i,n:integer;beginwriteln('Введите кол-во чисел!');readln(n);for i:=1 to n dobeginif (i mod 6=0) and (i mod 10=4) thenwriteln(i);end;end.