SHELLSHARP 2 < #d "VYPOCET SOC. SOUTEZE MV NF"!n"ZADEJ POCET TABULEK => ";P-x"ZADEJ POCET RADKU,SLOUPCU R/S =>";M,N&}A(M,N,P),Z(X),Y(G,J),X(G,J)KPIMJN"A(I,J,K)";A(I,J,K)JIK SUPER SHELLSORT E Z():  Z() Z(@) Z() Z( ) Z(@) Z(`) Z() Z() Z( ) Z(0) Z(@) Z(P) Z(`) Z(p) Z() Z() Z() Z() Z( ) Z(() Z(0) Z(8) Z(@) Z(H) Z(P) Z(`)" :E: "POCET CISEL";N9 X(N ),Y(N),XY(N),XX(N) JN "VLOZ CISLO=> ";E X(J)E  Y(J)E J TRIDENI) D((N)())( JND2 X( J)X( JD) < TXX( JD):X( JD)X( J)F JDX( J)TX: P IJDDZ TXX( I) x d X( ID)X( I) h X( J)En Ix X( ID)TX J D(D) D (  I:J% JN::'PRO TABULKU PORADI IN X(J)Y(I)XY(J)I:  I J I:J JN II X(J)Y(I)XX(J)I: IN I JJ J J: JN X( J) " :'CURSOR(XX(J)-1)*3 /N ,5D J  (N)J, "###";X(J);Y(J);XX(J);XY(J):: ? X( J)X( J)J"###";(N)J:: : :'IFX( J)<>X( J-1)ANDJ>1THENPRINTUSING"###";(N+1)-J J