Question

Помогите с Pascal ABC срочно! ​

Answer 1

program abc;

var a, b, c, buf: integer;

begin

 read(a);

 read(b);

 read(c);

 if b > c then begin

   buf:=b;

   b:=c;

   c:=buf;

 end;

 if a > b then begin

   buf:=a;

   a:=b;

   b:=buf;

 end;

 if b > c then begin

   buf:=b;

   b:=c;

   c:=buf;

 end;

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

end.

Я решил эту задачу так