Pascal. Последовательность хемминга

[valis]

Последовательность хемминга - расположенные в возрастающем порядке числа,не имееющих простых делителей,откличных,к примеру от 2,3,5.
Простые числа,напомню,числа которые делятся только сами на себя и единицу

В условии задачи дан исходный фаил Input.txt, содержащий в себе 3 простых числа и N-ый элемент последовательности.
Найти N-ый элемент последовательности

Порыскал в интернете,нашел этот код. Он предназначен для простых чисел 2,3,5.
А мне нужно для любых простых чисел.
Пример input.txt должен быть вида p1 p2 p3 n
input.txt:7 13 19 100 output.txt 26590291
input.txt:3 5 7 5 output.txt 15
. Откровенно говоря,очень слаб в паскале и не могу подкорректировать его под свое задание.

uses crt;
function Prost(n:longint):boolean;{определение простого числа}
var i:longint;
begin
Prost:=true;
for i:=2 to round(sqrt(n))do{от двух до корня из числа}
if n mod i=0 then{если на что-то делится}
 begin
  Prost:=false;{не простое}
  break;{дальше не проверяем}
 end;
end;
function Hemming(n:longint):boolean;{определение Хемминга}
var i:longint;
begin
Hemming:=true;
for i:=7 to n div 2 do{от 7(меньше допустимо)до середины числа}
if Prost(i)and not(i in [2,3,5]) and(n mod i=0) then{если простое и на него можно делить}
 begin
  Hemming:=false;{не Хемминг}
  break;{дальше не ищем}
 end;
end;
var n,a,k:integer;
begin
clrscr;
write('n=');readln(n);
a:=1;k:=1;
while k<=n do
 begin
  inc(a);
  {если число делится на 2,3,5 и больше ни на одно простое}
  if ((a mod 2=0)or(a mod 3=0)or(a mod 5=0)) and Hemming(a) then
   begin
    inc(k);{считаем}
    write(a,' ');{это просто для проверки, можно убрать}
   end;
 end;
writeln;
write('Hemming(',n,')=',a);
readln
end.

Помогите пожалуйста=)

[Serge_Bliznykov]

а объясните, зачем Вам даны исходные три простых числа?!
Как они тут участвуют в получении последовательности?!

[valis]

Ну одно из трех(может быть два из трех,три из трех) данных чисел является делителем .
Предположим в файле input.txt даны три числа 3 5 7,все они являются простыми .
итак,к примеру перебор:
2-не подходит,т.к делится на простое число 2
3-подходит,по условию
4-не подходит,т.к делится на простое число 2(по условию может делиться из простых чисел только на 3,5,7)

5-подходит по усл
6-не подходит,т.к делится на простое число 2,а это уже не соответствует условию,хоть и есть простой делитель 3
7-подходит по усл
8-не подходит,т.к делится на простое число 2(по условию может делиться из простых чисел только на 3,5,7)
9-подходит т.к как делится на только на 3,а3 есть в условии
10-не подходит,т.к делится на простое число 2(по условию может делиться из простых чисел только на 3,5,7)
..
..
..
19-не подходит,т.к простое
ну и т.п.

[Serge_Bliznykov]

ААА!
я кажется понял.
Вам нужно найти НЕ последовательность Хемминга
а числовую последовательность, которая образована числами,
не имееющих простых делителей,откличных от p1 p2 p3

Так просто вместо
2 3 5 подставьте в алгоритм p1 p2 p3 и всё!

[Z1000000]

Вот так как-то. Проверяй сам. На числах 2,3,5 последовательность Хемминга генерирует правильно.

uses crt;
var
 n,a,k:longint;
 p1,p2,p3 : longint;

function Prost(n:longint):boolean;{определение простого числа}
var i:longint;
begin
Prost:=true;
for i:=2 to round(sqrt(n))do{от двух до корня из числа}
if n mod i=0 then{если на что-то делится}
 begin
  Prost:=false;{не простое}
  break;{дальше не проверяем}
 end;
end;

function Hemming(n:longint):boolean;{определение Хемминга}
var i:longint;
begin
Hemming:=true;
for i:= 2 to n do
 begin
 if (n mod i) = 0 then // делитель
  if Prost(i) then // простой делитель
   if (i <> p1) and (i <> p2) and (i <> p3) then
   begin
   Hemming:=false;
   Exit;
   end;
 end;
end;

begin
clrscr;
write('n=');readln(n);
write('p1=');readln(p1);
write('p2=');readln(p2);
write('p3=');readln(p3);
if not Prost(p1) then begin write('Делитель p1 не простое число. Условие задачи не выполнено.Програма завершена.');Exit; end;
if not Prost(p2) then begin write('Делитель p2 не простое число. Условие задачи не выполнено.Програма завершена.');Exit; end;
if not Prost(p3) then begin write('Делитель p3 не простое число. Условие задачи не выполнено.Програма завершена.');Exit; end;
a:=1;k:=1;
while k<=n do
 begin
  inc(a);
  if Hemming(a) then
   begin
    inc(k);{считаем}
    write(a,' ');{это просто для проверки, можно убрать}
   end;
 end;
writeln;
write('Hemming(',n,')=',a);
end.

[valis]

Огромное спасибо! Очень благодарен