program ukol16;
uses crt;
var a,b:integer;

procedure prohod(var x,y: integer);
 var p:integer;
 begin
   if x>y then
    begin
     p:=y;
     y:=x;
     x:=p;
    end;
 end;

begin
  write('Zadejte cislo a: ');
  readln(a);
  write('Zadejte cislo b: ');
  readln(b);
  writeln;
  prohod(a,b);  {volani procedury}
  writeln('a = ',a);
  writeln('b = ',b);
end.