даны три целых числа. вывести их в порядке возрастания. паскаль.

Program DaNNuu;uses crt;const n=3;var  a:array [1..n] of integer;  i,j,min,temp:integer;begin  randomize;  {создание массива}  writeln('Элементы массива:');  for i:=1 to n do    begin      a[i]:=random(101)-50;      write (a[i]:5);    end;  {сортировка массива}  for i:=1 to n-1  do    begin      min:=i;      for j:=i+1 to n do        if a[min]>a[j] then          min:=j;      temp:=a[i];      a[i]:=a[min];      a[min]:=temp;    end;  writeln();  {вывод массива}  writeln('Результат сортировки:');  for i:=1 to n do    write(a[i]:5);end.

Решение наркоманское, но вышло короче :3

Uses CRT;Vara,b,c:integer;beginwriteln('Введите три числа: '); readln(a,b,c);if (a>b) and (b>c) thenwriteln(a,b,c);if (a>b) and (b>c) then writeln(c,b,a);if (a>c) and (c>b) then writeln(b,c,a);if (b>a) and (a>c) then writeln(c,a,b);if (b>c) and (c>a) then writeln(a,c,b);if (c>a) and (a>b) then writeln(b,a,c);if (c>b) and (b>a) then writeln(a,b,c);end.