Помогите пожалуйста!!!!!! Нужно написать программу которая определяет ПРОИЗВЕДЕНИЕ ВСЕХ ЧИСЕЛ КРАТНЫХ 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.