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

Не сторонник так изучать тему "Организация циклов". Но задача поставлена, вот вариант решения://PascalABC.Netuses 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.