csere

program csere;
uses crt;
var a,b:integer;

begin
clrscr;
writeln('Adjuk meg a cser‚lend‹ sz mokat: '); readln(a,b);
clrscr;
if a > b then a:=a+b; b:=(a-b)+b; a:=a-b; writeln('Az "A" v ltoz˘ csere ut n: ', a, ' Az "A" v ltoz˘ csere ut n: ', b);
readln;
end.