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

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

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

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

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

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

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

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

пусть [a,b] - область и a< =b

var

a,b,x: real;

begin

readln(a,b,x);

if (a< =x) and (x< =b) then

writeln('принадлежит')

else

writeln('не принадлежит');

end.

пример программы для паскаль

program a;

const n = 50; vari: byte; b: array[1..n] of word; procedure proc(a: array of word); beginfor i: =1 to n doif((129 < = a[i]) and (a[i] < = 160)) or        ((161 < = a[i]) and (a[i] < =175)) or          ((225 < = a[i]) and (a[i] < = 242)) thenwriteln('index =  ',i+1,'; bukva -  ''',char(a[i]),'''','    a[i] =  ',a[i]); end;

beginwriteln; for i: =1 to n do              b[i] : = random(300); for i: =1 to n do begin                  write(' ',i,'  =  ',b[i]); if (i mod 5 = 0) then writeln; end; writeln; writeln; proc(b);           readln;

end.