program felcsereles;
  procedure csere(var a,b:integer);
  var c:integer;
  begin
    c:=a;
    a:=b;
    b:=c;
  end;
var szam1, szam2: integer;
begin
  writeln('Az elso szam: ');
  readln(szam1);
  writeln('A masodik szam: ');
  readln(szam2);
  csere(szam1, szam2);
  writeln('Szam1: ', szam1);
  writeln('Szam2: ', szam2);
  readln;
end.