Відповідь:

PROGRAM ZNANIYA;

VAR

   X,Y:INTEGER;

BEGIN

   IF X>Y THEN

       BEGIN

               X:= X-Y;

               Y:= X+Y;

       END

   ELSE

       BEGIN

          Y:=Y-X;

          X:= X-Y;

       END;

PRINTLN(X,Y);

END.

Пояснення:

Если где-то я что-то пропустил то наипши пожалуста)