С! надо! надо написать в паскале поменяйте между собой значения двух переменных, использую третью

Program perestanovka;

Uses CRT

Var

a,b,r:integer;

Begin

clrscr;

write('a=>');

readln(a);

write('b=>');

readln(b);

r:=a;

a:=b;

b:=r;

writeln('a =>',a)

writeln('b =>',b)

readln;

End.
Както так