Program Obmen;
Var A, B, T: integer;
Begin
 write (' A, B: ');
 readln (A, B);
 T:=A; // 
 A:=B;
 B:=T;
 write ('A=', A, '  B=', B)
End.