Напишите процедуру, которая переставляет три переданные ей числа в порядке возрастания. пример: введите три натуральных числа: 10 15 5 5 10 15 для паскаля, без массива

Var x,y,z: integer; procedure p(var a,b,c: integer); var t: integer; begin 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; end; begin writeln('введите 3 числа: '); readln(x,y,z); p(x,y,z); writeln('x = ',x,'   y = ',y,'   z = ',z); end. пример: введите 3 числа: 8 5 2 x = 2   y = 5   z = 8

5.5  8.8  9.8  11.6  12.7  11.7  11.2  9.3  10.3  10.4  7.4  7.2  5.2  5.3  6.3  6.9  7.8  2.8  2.9  3.9  3.6  4.5      а вот как переводить: с конца над числом в двоичной системе пишешь: 1,2,4, и.т.д      если  единичка есть-прибавляешь это число. если единички нет-ничего не прибавляешь.

например- 1011    8+0+2+1=11            1000      8+0+0+0=8    111   4+2+1=7   11      2+1=3      10    2+0=2                10011101      128+0+0+16+8+4+0+1=157  а твои числа все в уме считаются.проверь может я ошиблась где нибудь)

1-я строка имеет длину 1

2-я - 3

3-я - 7

4-я - 15

5-я - 31

6-я - 63

7-я - 127

8-я - 255

9-я - 511 = 8я+8я+i

причем символы с 1 по 255 это первая 8-я строка символы с 256 по 511 это 2-я 8-я строка и символ i

8-я строка это две 7-х строки и символ h

каждая строка в начале имеет предыдущие строки таким образом в начале 8-й строки стоит символ a и далее так как в 4-й строке написано