uses crt;
var
a,b,deg:integer;
begin
writeln(‘1. sayıyı gir:’);
readln(a);
writeln(‘2. sayıyı gir:’);
readln(b);
deg:=b;
b:=a;
a:=deg;
writeln(‘1.sayı:’,a);
writeln(‘2.sayı:’,b);
readln;
end.

bu kodu bi dene dostum.olmazsa söyle başka bi yol deneyelim.ama ben bu programdan bi mantık anlıyamadım. ne için kullancaksın.