a) Пример с использованием промежуточной переменной:

program SwapNumbers;
var
a, b, temp: Integer;
begin
Write('Введите первое число: ');
Readln(a);
Write('Введите второе число: ');
Readln(b);
temp := a;
a := b;
b := temp;
Writeln('Первое число после обмена: ', a);
Writeln('Второе число после обмена: ', b);
end.

b) Пример без использования промежуточной переменной:

program SwapNumbersWithoutTemp;
var
a, b: Integer;
begin
Write('Введите первое число: ');
Readln(a);
Write('Введите второе число: ');
Readln(b);
a := a + b;
b := a - b;
a := a - b;
Writeln('Первое число после обмена: ', a);
Writeln('Второе число после обмена: ', b);
end.