Klavyeden girilen 5 adet sayıyı dizi kullanmadan döngü kullanarak sırasıyla büyükten küçüğe doğru sıralayan program
function buyuk(x,y:integer):integer;
begin
buyuk:=(x+y+abs(x-y)) div 2;
end;
function kucuk(x,y:integer):integer;
begin
kucuk:=(x+y-abs(x-y)) div 2;
end;
var s1,s2,s3,s4,s5,b:integer;
begin
write('1. sayı:');readln(s1);
write('2. sayı:');readln(s2);
write('3. sayı:');readln(s3);
write('4. sayı:');readln(s4);
write('5. sayı:');readln(s5);
b:=s4;s4:=buyuk(s4,s5);s5:=kucuk(b,s5);
b:=s3;s3:=buyuk(s3,s5);s5:=kucuk(b,s5);
b:=s2;s2:=buyuk(s2,s5);s5:=kucuk(b,s5);
b:=s1;s1:=buyuk(s1,s5);s5:=kucuk(b,s5);
b:=s3;s3:=buyuk(s3,s4);s4:=kucuk(b,s4);
b:=s2;s2:=buyuk(s2,s4);s4:=kucuk(b,s4);
b:=s1;s1:=buyuk(s1,s4);s4:=kucuk(b,s4);
b:=s2;s2:=buyuk(s2,s3);s3:=kucuk(b,s3);
b:=s1;s1:=buyuk(s1,s3);s3:=kucuk(b,s3);
b:=s1;s1:=buyuk(s1,s2);s2:=kucuk(b,s2);
writeln('sıralanmış hali:',s1,' ',s2,' ',s3,' ',s4,' ',s5);readln;
end.