Даны два числа X и Y напишите программу в результате которой эти два числа поменяются значениями

Program z25;
Var x,y,c:integer;
Begin
 write('Введите x = '); readln(x);
 write('Введите y = '); readln(y);
 c:=x;
 x:=y;
 y:=c;
writeln('X = ', x);
writeln('Y = ', y);
End;