10 TIME$= "000000"¢20 ? "}************************************"¢30 ? "* *"¢40 ? "* PYRAMIDA: z magazinu FLOP 29 *"¢50 ? "* *"¢60 ? "************************************":? :? ¢70 DIM A(9,9)¢80 A(2,9)=4¢90 A(5,9)=0¢100 A(8,9)=3¢110 FOR I=0 TO 2:J=2-I¢120 FOR M=0 TO 4:N=4-1¢130 FOR K=0 TO 3¢140 FOR L=0 TO 3¢150 A(1,9)=I:A(3,9)=J:A(4,9)=K¢160 A(6,9)=L:A(7,9)=M:A(9,9)=N¢170 FOR O=8 TO 1 STEP -1¢180 FOR P=1 TO O¢190 A(P,O)=A(P,O+1)+A(P+1,O+1)¢200 NEXT P:NEXT O¢210 IF A(2,5)<>20 THEN 260¢220 IF A(4,5)<>20 THEN 260¢230 IF A(2,3)<>70 THEN 260¢240 IF A(1,1)<>311 THEN 260¢250 FOR Q=1 TO 9:? A(Q,9);" ";:NEXT Q:? :? ¢260 NEXT L¢270 NEXT K¢280 NEXT M¢290 NEXT I¢300 ? :? :? "************************************"¢310 ? "* *"¢320 ? "* Cas potrebny k vypoctu: ";TIME$;" *"¢330 ? "* *"¢340 ? "************************************"¢
