посчитайте, , ИНФОРМАТИКА, 8 КЛАСС

program Swap;

var a,b,c :integer;

begin

readln(a,b);

if a < b then begin

b:=c;

b:=a;

a:=c;

end;

writeln(a, ' ' , b);

end.