Sayıları birbirleriyle değiştirmek

program degistir;

{$APPTYPE CONSOLE}


var
x,y,z:integer;


  begin
    writeln;
    writeln('İki tamsayi degeri giriniz.');
    readln(x,y);
    writeln('Ilk Durum:','x:',x,'y:',y);
    writeln;
    z:=x;
    x:=y;
    y:=z;
    writeln('Son durum:','y:',y,' ','x:',x);

  readln;
end.