Задача по с ! Пользователь вводит с клавиатуры длину линии и
символ для заполнения линии. Нужно отобразить на
экране вертикальную линию из введенного символа,
указанной длины.
Например, если было введено 5 и символ %, тогда
вывод на экран будет такой:
%
%
%
%
%

пусть введенный интервал будет

b и c,где b< c

var a,b,c,i: longint;

begin

    read(b,c);

    for i: =b to c do

            if i mod a=0 then write(i);

end.

writeln('a[',i,']=',a[i]);

readln;

end.

64000 бит/с*16 c=1024000 бита/8=128000 байт=125 килобайт

var i: integer;

begin

  for i: = 35 to 87 do

      if i mod 7 =1 then

          writeln(i);

end.