var
x, y: integer;
v: integer;// вс переменная
begin
write('Введите x,y: ');
readln(x, y);
v := x;
x := y;
y := v;
writeln('Новые значения x,y: ', x, ' ', y)
end.
var
x, y: integer;
v: integer;// вс переменная
begin
write('Введите x,y: ');
readln(x, y);
v := x;
x := y;
y := v;
writeln('Новые значения x,y: ', x, ' ', y)
end.