если для кого то элементарно то извините
даны 2 переменные
надо первой переменной присвоить значение второй , а второй значение первой
пользоватся доп переменными нельзя

Может я ошибаюсь но помоему нельзя без доп переменной, хотя можно через массив.

Можно, но это - необщее решение, всегда можно подобрать данные, на которых этот метод не отработает. К тому же, он еще и медленнее: Улучшение кода

нет без доп структур

Добавлено через 3 мин.
все гораздо проще

угу, гораздо проще; я посмотрю как ты будешь свой метод применять для моего пользовательского типа

a := a + b;

b := a - b;

a := a - b;

renesko1 Ну-ну .. Ты бы хоть читал что тебе пишут

type
  ttype = record
    x: Integer;
    s: String;
  end;

var
  a, b: ttype;

вперед ...

renesko1, я предупреждал...

A и B - типа Integer? Проверяй: A = 27000, и B = 15000... (Проверяем на Turbo Pascal, с режимом {$Q+} - он у меня установлен по умолчанию, и отключать его я не собираюсь. Результаты - в студию).

извините даж стыдно как то
не подумал

подразумевает еще оду переменную параметра цикла...
если а больше б то для к от а-б делать а=а-1 б=б+1
как видишь а будет уменьшаться до б, а б будет рости до а
хотя я делаю это операциями предложенными выше...просто вот еще идейка