Составить программу Вести с клавиатуры переменные х и у, поменять их значения местами,...

Если x и y целые и положительные числа то например можно так:

1 Program p1;

2 Var x,y:integer;

3 x:=20;

4 y:=40;

5 x:=x+y;

6 y:=x-y

7 x:=x-y;

А так же можно решить умножением:

1 x:=x*y;

2 y:=x div y;

3 x:=x div y;