» Consol-ные задачки на Delphi...

Mozhet kto mozhet mne junoj programistke pomogat" reshat" zadachki? A vernee reshat" ih za menja

Vot naprimer takaja:
Дано натуральное число N. Найти сумму первых n натуральных чисел, которые не делятся ни на какие простые числа, кроме 2, 3 и 5.
Вход
В первой строке входа дано натуральное число N.
Выход
В первую строку выхода вывести результат.

Пример
Вход:
50
Выход:
3986

немного измененная задача поиска простых чисел... на самом деле надо просто найти сумму первых Н чисел, изключая простые

Spasibo ogromnoe za to chto otkliknulsja. No mne nuzhen imenno sam kod.

Liona

Код:
program Project2;

{$APPTYPE CONSOLE}

uses
SysUtils;
var
num,k:integer;
s,sn,nm:string;
i,sum:integer;
b:boolean;
begin
readln(k);
i:=1;num:=2;sum:=1;s:='';
repeat
if (num mod 2<>0) and (num mod 3<>0) and (num mod 5<>0) then
begin
sn:=s;
b:=true;
while (sn<>'') do
begin
nm:=copy(sn,1,pos(',',sn)-1);
delete(sn,1,pos(',',sn));
if (num mod strtoint(nm)=0) then b:=false;
end;
if b then s:=s+inttostr(num)+',';
end else
begin
sn:=s;
b:=true;
while (sn<>'') do
begin
nm:=copy(sn,1,pos(',',sn)-1);
delete(sn,1,pos(',',sn));
if (num mod strtoint(nm)=0) then b:=false;
end;
if b then
begin
sum:=sum+num;
inc(i);
end;
end;
inc(num);
until i=k;
writeln(sum);
readln;
end.

oj kak vsego mnogo Poprobuju razobtarsja.
Spasibo.