Задача: Нарисовать вертикальные линии с начальной координатой (10, 10), длиной линий (L), количеством линий (N) и шагом step. Сделать эту задачу по теме "Организация циклов в программе", "Цикл с постусловием". В Паскаль.

Не сторонник так изучать тему "Организация циклов". Но задача поставлена, вот вариант решения: //PascalABC.Net uses GraphABC; var l,n,step,x,y,k:integer; begin   read(l,n,step);   x:=10;   y:=10;   k:=0;   repeat     line(x,y,x,y+l);     x:=x+step;     k:=k+1;   until k>=n; end.