Anonymous

program stulpeliai;
   const N = 5;
   var i,skaitiklis : integer;
   x : masyvas;
   type Masyvas = array [1..N] of integer;
   procedure burbulas (var x: Masyvas);
      var a, j, k: integer;
          keitimas: boolean;
      begin
      k:=N;
      repeat
         keitimas := false;
         for j := 2 to k do
            if x[j-1] > x[j] then
               begin
                  a := x[j-1];
                  x[j-1] := x[j];
                  x[j] := a;
                  keitimas := true
               end;
            k := k - 1
            until not keitimas
        end;
i := 1 ;
skaitiklis := 0;
while i > 0 do begin
   ReadLn(i);
   skaitiklis := skaitiklis + 1;
   x[skaitiklis] := i;
end;
burbulas(x);
for i := 1 to skaitiklis do
   WriteLn(x[i]);
end.