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.