Pascal Алгоритм деления

[bpystep]

Задание:
Составить алгоритм, который заносит в таблицу первые 1000 натуральных чисел, делящихся на 13 или 17. (не использовать стандартные функции остатка от деления и подобные)

Народ подскажите систему как это написать.
Как в паскале вбить это в таблицу?

может быть примерно так?:

writeln('----------------');
writeln('|    /13     |   /17    |');
writeln('----------------');
for i:=1 to n do
writeln('|    ',x,'     |   ',y,'    |');
writeln('----------------');

???

[Sazary]

Ну просто умножайте 13 и 17 на счетчик, пока число меньше 1000. И не нужно будет никаких остатков..

[bpystep]

тое есть вот так примерно

if x<1000 then begin
s:=s+1;
s:=s*13;
end;

и то же самое про 17?

а что насчёт таблицы?

[Sazary]

uses crt;

var
a,b,i : integer;

begin
clrscr;
writeln('----------------');
writeln('|    /13     |   /17    |');
writeln('----------------');
i := 1;
while (a<1000) or (b<1000) do
 begin
 a := 13*i;
 b := 17*i;
 write('| ',a:5,' |');
 if (b<=1000) then write(' ',b:5);
 writeln;
 inc(i);
 end;
writeln('----------------');

readln;
end.

[bpystep]

спс, всё работает=)