Турбо Паскаль. Программа для обмена значений

Program My

Var X, Y, T: integer;

Begin

ReadLn (X, Y);

T : = 0

X: = X

Y: = Y

T : = X

Y: = T

X: = Y

T : = 0

Y: = X

WriteLn (X,Y);

End.