Помогите пожалуйста составить программу
Последовательность Хэмминга образуют натуральные числа, не имеющие других простых делителей, кроме 2,3 и 5. Найти:
а) первые N элементов этой последовательности;
б) сумму первых N элементов;
в) первый элемент по заданному номеру N;
г) первый элемент, больший данного числа M, а также номер этого элемента в последовательности;
д) сумму всех элементов с номера N по номер M.
Вот я составил 1, а дальше как:
Код:
k:=1;
i:=1;
repeat
if k mod2=0 then i:=i*3
else if k mod 3=0 then i:=i*5
else i:=i*2
writeln(i);
inc(k);
until k>=n