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

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

Uses CRT;

Var

a, b, c:integer;

begin

writeln ('Введите три числа: ') ; readln (a, b, c) ;

if (a>b) and (b>c) then

writeln (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.

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.