Лестница:
нц 7 раз
вниз
закрасить
нц 2 раз
вправо
закрасить
кц
кц
конец
Доска:
нц 4 раз
закрасить
вниз
вниз
кц
вправо
вверх
закрасить
нц 3 раз
вверх
вверх
закрасить
кц
вверх
вправо
закрасить
нц 3 раз
вниз
вниз
закрасить
кц
вниз
вправо
закрасить
нц 3 раз
вверх
вверх
закрасить
кц
вверх
вправо
закрасить
нц 3 раз
вниз
вниз
закрасить
кц
вниз
вправо
закрасить
нц 3 раз
вверх
вверх
закрасить
кц
вверх
вправо
закрасить
нц 3 раз
вниз
вниз
закрасить
кц
вниз
вправо
закрасить
нц 3 раз
вверх
вверх
закрасить
кц
<span>кон</span>
Procedure swap(var a, b: real);
var t: real;
begin
t := a;
a := b;
b := t;
end;
var a, b, c: real;
begin
readln(a, b, c);
if (a > b) then swap(a, b);
if (b > c) then swap(b, c);
if (a > b) then swap(a, b);
writeln(a, ' ', b, ' ', c);
<span>end.
===========================
Без процедур:
var a, b, c, t: integer;
begin
readln(a, b, c);
if (a > b) then
begin
t := a;
a := b;
b := t;
end;
if (b > c) then
begin
t := b;
b := c;
c := t;
end;
if (a > b) then
begin
t := a;
a := b;
b := t;
end;
writeln(a, ' ', b, ' ', c);
<span>end.</span></span>
Var a:longint;
Begin
Read(a);
If (a>=1)and(a<=100) then writeln('молодёжь')else
If (a>=101)and(a<=200) then writeln('взрослые')else
If (a>=200)and(a<=250) then writeln('пенсионеры')else
Writeln('-');
End.