pascalabcnet/TestSuite/CompilationSamples/BlockVar.pas

// Перемена местами значений двух переменных с использованием третьей
var x,y: real;

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