Begin22. Поменять местами содержимое переменных A и B и вывести новые значения A и B.
var a, b, buf: real;
begin
  write('Введите значения А и В ->');
  readln(a, b);
  buf:=a;
  a:=b;
  b:=buf;
  writeln('A = ', a:6:2);
  writeln(