uses crt;
var x,y,t:integer;
begin
clrscr; //x:=random(10)+1; y:=random(10)+1; (для других значений если будущие не надо)
x:=5; y:=11;
write('Без изменений:'); writeln;
write('x=',x,'; y=',y); writeln;
t:=x;
x:=y;
y:=t;
t:=0;
write('С измениями:'); writeln;
write('x=',x,'; y=',y);
readkey;
end.