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

Var a,b:integer;
Begin
 randomize;
 a:=random(80001)-40000;
 b:=random(80001)-40000;
 if a>b then writeln(b,', ',a)
  else writeln(a,', ',b);
End.