Напишите программу для пешехода о переходе на сигнал светофора. через паскаль, ​

1. прежде чем переходить любую дорогу, остановись на краю тротуара.

2. внимательно посмотри налево и направо и выясни: какая же это дорога — с односторонним или с двусторонним движением.

3. прежде чем начнёшь переходить дорогу, убедись, что все транспортные средства находятся от тебя на безопасном для перехода расстоянии.

4. пересекай проезжую часть быстрым шагом, но не беги.

5. переходи дорогу под прямым углом к тротуару, а не наискосок.

и самое главное:

будь внимателен всё то время, пока ты переходишь дорогу!

var s : string; symb : char; i : longint; begin  readln(s);   readln(symb);   if pos(symb,s)=0 then writeln('в этом слове нет этого символа')  else begin                i: =0;                 while pos(symb,s)< > 0 do begin                                                                    write(pos(symb,s)+i,' ');                                                                     i: =i+1;                                                                     delete(s,pos(symb,s),1);                                                                 end;             end;   writeln;   writeln(i); end.

program p_1

var

a: string

begin

writeln ('vvedite nazvanie rek');

read (a);

if (a='волга,днепро,нёман,енисей')then

writeln ('в беларуси протекают только днепро,нёман');

end.