Задача:Даны переменные А и В.Требуется обменять их значениями,т.е. переменная А должна получить значение В,а В-значение А
Var a,b,c,d:integer; begin writeln('Введите а'); readln(a); writeln('Введите b'); readln(b); c:=a; d:=b; a:=d; b:=c; writeln('a:=',a); writeln('b:=',b); end.