var

  a, b, c: real; {c - буферная переменная, в которой будет хранится значение переменной а}

begin 

  writeln('Введите 2 числа');

  readln(a, b);  //Вводим значения переменных а и b

  writeln(a, '  ', b);  //Печатаем значения переменных а и b

  c:= a;  //Присваиваем переменной с значение переменной а

  a:= b; //Присваиваем переменной а значение переменной b 

  b:= c;  //Присваиваем переменной b значение переменной c

  writeln(a, '  ', b);  //Печатаем измененные значения

end.