var
a,b:integer;
a:=20;
b:=13;
a:=a+b-a;writeln('20+13-20',a);
b:=b+a-b;writeln('13+20-13',b);
readln;
end.
Объяснение:
===== PascalABC.NET =====
begin
var (a, b) := ReadInteger2;
Swap(a,b);
Print(a, b)
var
a,b:integer;
a:=20;
b:=13;
a:=a+b-a;writeln('20+13-20',a);
b:=b+a-b;writeln('13+20-13',b);
readln;
end.
Объяснение:
===== PascalABC.NET =====
begin
var (a, b) := ReadInteger2;
Swap(a,b);
Print(a, b)
end.