On sayıyı sıralama

uses crt;

var

s:array[1..10] of integer;

i:integer;

tamam:boolean;

procedure degis(a,b:integer);

var

c:integer;

begin

clrscr;

c:=a; a:=b; b:=c;

end;

for i:=1 to 10 do

begin

writeln(i,'. sayıyı giriniz:');

readln(s[i]);

end;

for i:=1 to 9 do

repeat

begin

tamam:=true;

if s[i]>s[i+1] then

begin

writeln(s[i],s[i+1]);

tamam:=false;

end;

until tamam;

for i:=1 to 10 do

begin
writeln(s[i]);
end.

bu komutları pacsal programında yazdığımızda 10 tane girdiğimiz karışık numaraları sıralar