Напечатать все кратные тринадцати натуральные числа

[by_sergo]

Напечатать все кратные тринадцати натуральные числа, меньше 100.
Задачу решить двумя способами.
а) без использования инструкции цикла с условием
б)а) с использованием инструкции цикла с условием

[_-Re@l-_]

var
     i : Integer;
begin
        i:=13;
        while i<=100 do
        begin
                write(i,' ');
                i:=i+13;
        end;
end.

var
     i : Integer;
begin
        for i:=1 to 100 do
        if i mod 13 = 0 then write(i,' ');
end.