Найти заданное количество натуральных чисел, у которых нет простых делителей, кроме 2, 3 и 5 - Pascal

Формулировка задачи:

Дано натуральное число n. Получить в порядке возрастания n первых натуральных чисел, которые не делятся ни на какие простые числа, кроме 2, 3 и 5.

Решение задачи: «Найти заданное количество натуральных чисел, у которых нет простых делителей, кроме 2, 3 и 5»

Листинг программы

var n, k, p: longint;
begin
  repeat
    write('n > 0;  n = ');
    readln(n)
  until n > 0;
  k := 0;
  repeat
    inc(k, 30);
    p := k;
    while p mod 2 = 0 do p := p div 2;
    while p mod 3 = 0 do p := p div 3;
    while p mod 5 = 0 do p := p div 5;
    if p = 1
      then begin
        writeln(k);
        dec(n)
      end
  until n = 0;
  readln
end.

Объяснение кода листинга программы

Объявление переменных:
- n - целое число (длинное);
- k - целое число (длинное);
- p - целое число (длинное).
Организация цикла с постусловием:
- На экран выводится сообщение n > 0; n =, после чего происходит ввод значения для переменной n с клавиатуры, и эти действия повторяются, пока значение n не станет больше 0.
Инициализация переменной k с 0.
Организация цикла с предусловием:
- Пока значение переменной n не станет равным 0, выполняются следующие действия:
  - Увеличивается значение переменной k на 30;
  - Переменной p присваивается значение k;
  - Выполняются циклы с постусловием для проверки, что p не делится на 2, 3 и 5, и если делится, то p делится на соответствующее число;
  - Если p после проверок становится равным 1, выводится значение k и значение переменной n уменьшается на 1.
Завершение программы с ожиданием ввода. Этот код на языке Pascal предназначен для поиска заданного количества натуральных чисел, у которых нет простых делителей, кроме 2, 3 и 5.