составить программу на языке паскаль которая меняет местами два числа без ввода дополнительной ячейки

a:=a+b;b:=a-b;a:=a-b;var a,b:real;procedure change(var a, b: real);begina := a + b; writeln(a);   b := a - b; writeln(b);   a := a - b; writeln(a);end;beginwriteln('a, b:');   readln(a, b);   writeln('a=', a);   writeln('b=', b);   change(a, b);   writeln('a=', a);   writeln('b=', b);   readln;end.