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

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

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

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

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

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

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

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

program pryam;

var y1, y2, y3, x1, x2 : real;

begin

  writeln ('введите координату (у) верхней точки прямой');

  readln (y1);

  writeln ('введите координату (у) нижней точки прямой');

  readln (y2);

  writeln ('введите координату (х) точек-концов прямой');

  readln (x1);

  writeln ('введите координату (у) точки, принадлежность к прямой которой нужно определить');

  readln (y3);

  writeln ('введите координату (х) точки, принадлежность к прямой которой нужно определить');

  readln (x2);

if (y3< =y1) and (y3> =y2) and (x2=x1) then writeln (' принадлежит ')

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

readln;

end.

совершенное число это число равное сумме своих делителей отличных от самого числа

var i, s,j : integer;

begin for i : = 5 to 200 do begin s : = 0; for j : = 1 to i div 2 do if (i mod j = 0) then s : = s + j; if s = i then writeln(i); end; end.