Вводятся 4 числа. Нужно вывести их в порядке возрастания. При любых входных данных алгоритм должен выполнять не более пяти операций сравнения. Решения с большим количеством сравнений не оцениваются. Оператор вывода во всём тексте алгоритма должен быть единственный.

var a, b, c, d:integer;

a: array[1 ... 4] of integer;

i, k, t: integer;

begin

writeln ('Введите первое число');

readln (a);

writeln ('Введите второе число');

readln (b);

writeln ('Введите третье число');

readln (c);

writeln ('Введите четвёртое число');

readln (d);

a[1]:=a;

a[2]:=b;

a[3]:=c;

a[4]:=d;

for k : = 1 to 3 do

for i:=1 to 4-k do if a[i] > a[i+1] then begin

t:=a[i];

a[i]:=a[i+1];

a[i+1]:=t;

end;

writeln ('Числа в порядке возрастания: ');

for i:=1 to 4 write (a[i]:4);

end.