'-- 8 Љ ‹ Ђ ‘ ‘
'----- ЏЋ‚’Ћђ…Ќ€…
'----- Їа®Ја ¬¬ Ј®в®ўЁв ⥪бв ў д®а¬ ⥠TEX'a (LATEX'a)DECLARE SUB UST ()
DECLARE SUB ZAP (A!, A$)
DECLARE SUB NOD (X!, y!, ND!)
DECLARE SUB Z1 ()
DECLARE SUB Z2 ()
DECLARE SUB Z3 ()
DECLARE SUB Z4 ()
DECLARE SUB Z5 ()
DECLARE SUB Z6 ()
DECLARE SUB Z7 ()
OPEN "H:SR_1_A_8.TEX" FOR OUTPUT AS #1
CLS
CALL UST
FOR NUM = 1 TO 30
RANDOMIZE TIMER - 32767
PRINT NUM;
PRINT #1,
PRINT #1, "\centerline {\sl ‘ - 8 - 1. ЏаҐ®Ўа §®ў ЁҐ 楫®Ј® ўла ¦ҐЁп ў ¬®Ј®з«Ґ} "
PRINT #1,
PRINT #1, "\centerline {\sl (Ї®ўв®аҐЁҐ) }"
PRINT #1,
PRINT #1, "\bigskip "
PRINT #1, "\centerline {\bf ‚ Ђ ђ € Ђ Ќ ’ \qquad "; NUM; "}"
PRINT #1, "\bigskip "
PRINT #1, "\bigskip "
PRINT #1,
CALL Z1
PRINT #1, "\bigskip"
CALL Z2
PRINT #1, "\bigskip"