Паскаль программы.расположите числа a,b,c integer в порядке возрастания. мне, !

var

  a, b, c : integer;

procedure swap (var a, b : integer);

var k : integer;

begin

  k := a;

  a := b;

  b := k;

end;

begin

  read (a, b, c);

  if a > b then swap (a, b);

  if a > c then swap (a, c);

  if b > c then swap (b, c);

  writeln (a, ' ', b, ' ', c);

end. 

Var

a. b. c. integer

вот так то