Построить горизонтальные линии в qbasic с шагом через 15 использовать оператор цикла

Screen 9 for i = 1 to 22     y = y + 15     line (0, , y) next i

1) пассажир иванов живёт в москве; 2) проводник живёт на полпути между москвой и санкт-петербургом; 3) пассажир-однофамилец проводника живёт в санкт-петербурге; 4) у пассажира, который живёт ближе к месту жительства проводника, чем другие пассажиры, вдвое больше детей, чем у проводника; 5) у пассажира петрова трое детей; 6) сидоров (из поездной бригады) недавно выиграл у машиниста партию на бильярде 7) п1+п3 = проводник не иванов. кто-то из пассажиров живет в с-петербурге 8) п4+п5+п7 = у петрова нечетное кол-во детей, значит он не тот кто живет рядом с проводником. петров живет в с-петербурге 9) п3+п8 =  у проводника фамилия петров 10) п6+п9 = машинист не сидоров. машинист - иванов ответ: иванов

Var   a,b,i,n,j,l,ier: integer;   s: string;   p: boolean; begin   write('введите границы интервала в виде пары натуральных чисел ');   read(a,b);   n: =0;   for i: =a to b do   begin       str(i,s);       l: =length(s);       if l=1 then inc(n)       else begin           j: =1;           repeat               p: =(s[j]=s[l-j+1]);               inc(j)           until (j> l) or (not p);           if p then inc(n)       end   end;   writeln('количество палиндромов равно ',n) end. тестовое решение: введите границы интервала в виде пары натуральных чисел 1550 2450 количество палиндромов равно 10