Var a, b, c, d: integer; p: integer; begin writeln('введите первое число: '); readln(a); writeln('введите второе число: '); readln(b); writeln('введите третье число: '); readln(c); writeln('введите четвёртое число: '); readln(d); if a> b then writeln('1 число больше 2'); if a< b then writeln('1 меньше 2'); if b> c then writeln('2 число больше 3'); if b< c then writeln('2 меньше 3'); if c> d then writeln('3 число больше 4'); if c< d then writeln('3 меньше 4'); if c> d then writeln('4 число больше 1'); end.
1 дойти до лифта
2 нажать кнопку лифта
3 войти в лифт
4 нажать кнопку 1
5 ждать пока двери закроются
6 ждать пока двери отроются
7 выйти из лифта
8 выйти из подезда
9 построить маршрут для пешехода от подъезда до школы
10 следовать маршруту
ну как то та