решение во вложении, Вам нужна только первая страница
Вставлен в документ Word (сюда нельзя присоединить файл формата EMZ). Замечание: рисунок этого формата можно масштабировать.
Var i:integer;
begin
i:=1;
while i<100 do
begin
write(i,' ');
i:=i+2
end
<span>end.</span>