Поменять ячейки местами a:=n, b:=m. Паскаль

program swap;var a,b: integer;beginwrite(\'enter a \');readln(a);write(\'enter b \');readln(b);a:=a+b; // Сумма чисед а и bb:=a-b; //Если из суммы a+b вычесть b, то b станет равным а. a:=a-b; //Если из суммы вычесть новое значение b, то получим новое //значение аwriteln(\'a = \', a);writeln(\'b = \', b)end.