Вводятся 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.