Поменять местами ячейки. пример а=3, b=5=>a=5, b=3. паскаль

1.

var a, b, c:integer;

begin

a:=3; b:=5;

writeln ('a = ', a,' b = ', b) ;

c:=a;

a:=b;

b:=c;

writeln ('a = ', a,' b = ', b) ;

end.

Результат:

a = 3 b = 5

a = 5 b = 3

2.

var a, b:integer;

begin

a:=3; b:=5;

writeln ('a = ', a,' b = ', b) ;

a:=a+b;

b:=a-b;

a:=a-b;

writeln ('a = ', a,' b = ', b) ;

end.

Результат:

a = 3 b = 5

a = 5 b = 3