fork download
  1. program i4;
  2. var a,b:integer;
  3. begin
  4. readln(a,b);
  5. writeln('было',' ',a,' ',b);
  6. a:=b;
  7. b:=a;
  8. writeln('стало',' ',a,' ',b);
  9. end.
Success #stdin #stdout 0s 336KB
stdin
1
2
stdout
было 1 2
стало 2 2