напишите программу для...

напишите программу для паскаля. условие: обменять значения двух переменных, используя третью(буферную)переменную

 

var
  a, b, buf:real;
begin
  write('a = '); readln(a);
  write('b = '); readln(b);
  buf := a;
  a := b;
  b := buf;
  writeln('a = ', a);
  writeln('b = ', b);
end.
 
 
// без буферной переменной
var
  a, b:real;
begin
  write('a = '); readln(a);
  write('b = '); readln(b);
  a := a + b;
  b := a - b;
  a := a - b;
  writeln('a = ', a);
  writeln('b = ', b);
end.