ИНФОРМАТИКА.ПАСКАЛЬ.ТЕМА:ЦИКЛЫ
Нарисуйте вертикальные линии от левого края графического окна до правого. Расстояние между линиями задаётся с клавиатуры. (Функция WindowWidth возвращает ширину графического окна)
__________________________________________________________
желательно в решении использовать процедуры.Буду очень благодарна !!!

по другому отправлю

uses graphabc;procedure vvod(var r: integer);begin  writeln('Введите ширину отступа');  read(r);end;procedure linii(r: integer);var  x: integer;begin  x:=0;  while x<windowwidth do  begin    line(x,0,x,100);    x:=x+r;  end;end;var  r:integer;begin  vvod(r);  linii(r);end.