Ответ разместил: Гость
Var a,b,c,t: integer; begin read(a,b,c); writeln('a': 4,'b': 4,'c': 4); writeln(a: 4,b: 4,c: 4); t: =a; writeln(a: 4,b: 4,c: 4); a: =c; writeln(a: 4,b: 4,c: 4); c: =b; writeln(a: 4,b: 4,c: 4); b: =t; writeln(a: 4,b: 4,c: 4); end.