Задачи с решением — линейные алгоритмы

var a, b, c: real;{infouch.ru}
begin
  write ('Введите через пробел 2 переменные ');
  readln (a,b);
  writeln ('Исходные значения');
  writeln ('a = ', a, ', b = ', b);
   c := a;
   a := b;
   b := c;
  writeln ('Значения после обмена');
  writeln ('a = ', a, ', b = ', b);
end.