Вводится число n. выведите те числа от 1 до n, которые делятся на 13. примеры: 25- ввод 13- вывод 39-ввод 13 26 39-вывод pascal abc

Var
n,i:integer;
begin
readln(n);
i:=1;
while i<=n do begin
if i mod 13 =0 then write(i,' ');
i:=i+1;
end;
end.