Как поставить ограничение на количество действий в uniti и как снизить параметр friction до 0? ? ​

Вот так эту можно решить на современном паскале. но, к сожалению, так в школах не учат, заставляя тратить время и силы на громоздкие программы, в которых легко ошибиться. // pascalabc.net 3.2 begin   write(readlnstring('-> ').towords.where(x-> x.left(2)='со').count) end. пример: -> три собаки сосали одну косточку 2 а вот так (примерно, потому что обычно еще хуже) учат писать программы в var   s: string;   i,n,k,p: integer; begin   write('-> '); readln(s);   if copy(s,1,2)='со' then k: =1 else k: =0;   delete(s,1,3);   repeat       i: =pos(' со',s);       if i> 0 then begin           inc(k);           delete(s,1,i+3)           end   until i=0;   writeln(k) end.

Var       a, b: real ; begin       write('тормозной путь, определенного для данного места при полном служебном торможении = ');       readln(a);       write('тормозной путь для на 120 км/ч для пассажирских поездов = ');       readln(b);       if b < a then a : = b;       write('тормозной путь для на 80 км/ч для грузовых поездов = ');       readln(b);       if b < a then a : = b;       write('тормозной путь при экстренном торможении с учетом пути, проходимого поездом за время, необходимое для воздействия устройств автоматической локомотивной сигнализации на тормозную систему поезда = ');       readln(b);         if b > a then a : = b;       write('участок, где видимость сигналов менее 400 м? да-1/нет-0 ');       readln(b);       if (b = 1) and (a < 1000) then a : = 1000;       write('железнодорожная линия, вновь оборудуемая автоблокировкой? да-1/нет-0 ');       readln(b);       if (b = 1) and (a < 1000) then a : = 1000;       writeln(a); end.