Localize file www.TrSek.com/pas/sswap.pas{ SSWAP.PAS }
{ Program prehodi medzi sebou cisla a,b. }
{ Specialitou je ze nepotrebuje pomocnu premenu ani zasobnik. }
{ }
{ Datum:07.06.2006 http://www.trsek.com }
program superswap;
var a,b: integer;
begin
{ precita cisla }
writeln('Program vymeni 2 cisla medzi sebou bez pomocnej premenej');
write('Zadaj a = ');
readln(a);
write('Zadaj b = ');
readln(b);
{ zacnu kuzla }
a:=b-a;
b:=b-a;
a:=b+a;
{ vypise cisla }
writeln('Vymenene cisla su');
writeln(' a = ',a);
writeln(' b = ',b);
readln;
end.