/------------------------------------------------------------------\
i		  program superspecialshellsort;		   i
i		var						   i
i		  n: integer;					   i
i		 begin						   i
i		   write(' zadej pocet cisel: ');		   i
i		   readln(n);					   i
i		   if n<1					   i	
i		    then writeln(' co to je za kravinu?!')         i
i		    else					   i
i		    if n=1					   i
i		     then writeln(' hotovo!')			   i
i		     else writeln(' urob si sam!')		   i
i		 end.						   i
|------------------------------------------------------------------/
	
	
posudek:  tento tridici program je z casoveho hlediska velice efektivni,  do-
        konce se da dokazat,  ze tento program  (vynechame-li moznost trideni
	programem, ktery nepotrebuje nacitat vubec nic),  je vubec nejefekti-
	vnejsi ze vsech tridicich programu.  casova narocnost tohoto programu
	je ohrani cena konstantni funkci  (c1<=t(n)<=c2).  dale ma take mini-
	malni naroky na pamet, dokonce nemusi nacitat ani tridenichtive pole!
	zaverem lze tedy rici, ze tento program je doslova revolucnim prevra-
	tem v celych dejinach tridicich algorytmu.
	
			       prof. ing. rndr. skritek pidipacek, drsc. atd.