Я не понимаю что не так в этой программе. Обратите внимание на комментарий вверху (так как в тело цикла будет входить более одной команды, откроем составной оператор). Если что тема: составление программ с циклом while. Те. нельзя заменить циклом

Pascalabc.net скорее всего криво и нерационально, но работает   var  s,s2,a : string;   l,i,b,l2 : integer;   begin  readln (s);     l : = length(s);   while b < > -1 do     begin  b : = 0;     b : = pos ('o',s);   if b < > 0 then     begin   s2 : = s2 + copy(s,1,b);   delete (s,1,b);     writeln ('введите строку');   readln (a);   s2 : = s2+a;     end     else       begin       l2 : = length(s);         s2 : = s2 + copy(s,1,l2);       b : = -1;       end;       end;     writeln (s2);           end.

1) из повседневной жизни школьника каждую неделю, по будним дня, нужно идти в школу. (цикл на каждый день с исключением выходных) по задали выучить стих. на уроке проходятся циклом по всем ученикам и говорят рассказывать этот стих и потом оценивают 2) и днем и ночью кот ученый все ходит по цепи кругом колобок. я от бабушки ушел, я от дедушки ушел, я от зайца ушел.. (цикл по обьектам) 3) . лабораторная, поставить некий эксперемент несколько раз с разными параметрами. параметры меняются, действия одни и те же нахождение корней уравнения путем половинного деления (цикл повторяется пока не достигается определенная точность ответа)