                                                      23.02.08 М1

  М О Н И Т О Р-8 0  (3.6)   26.11.83М       (  МС " Д У Б Н А " ИАЭ  )             ШИФР    419999000000







                    ЖЖЖЖ   ЖЖЖ   ЖЖЖ   ЖЖЖЖ  ЖЖЖ  Ж
                    Ж   Ж Ж   Ж Ж     Ж     Ж   Ж Ж
                    Ж   Ж Ж   Ж  ЖЖЖ  Ж     Ж   Ж Ж
                    Ж   Ж Ж   Ж     Ж Ж     Ж   Ж Ж
                    ЖЖЖЖ  Ж   Ж     Ж Ж     Ж   Ж Ж
                    Ж     ЖЖЖЖЖ Ж   Ж Ж     ЖЖЖЖЖ Ж
                    Ж     Ж   Ж  ЖЖЖ   ЖЖЖЖ Ж   Ж ЖЖЖЖЖ








*NАМЕ РАSСАL
           *САLL УЕSМЕМОRУ
           *     NО LISТ
           *     FULL LISТ
           *SУSТЕМ
           *РЕRSОNАL LIВRАRУ:670440

        LIВDRUМ    03120        РТ6        20437        ХРАRАМТ/ С 21055
        SУSLISТ*   03671        ТАВSIМIS   20515        Э*64       21061
        NЕWСАТ   С 04000        SIМFАIL*   20715          СВОБОД   21113
        ОLDСАТ   С 10000        SТАRSТА  С 21044
        ТАВL     С 14000        ОUТ*ОUТ  С 21045
        *МОNСRD* С 20000        МISТ10*  С 21046
        РАRАМТ*    20014        ХРАRАМТ* С 21051

 LIВRАRУ ОТ  26.02.82 М3
           *РАSСАL
                   РАSСАL*     01770
                                                      23.02.08 М1
 РАSСАL СОМРILЕR 15.0 (15.02.82)
 00000    1  0 (* ЦЕЛЫЕ ЧИСЛА ОТ 2 ДО 100: РЕШЕТО ЭРАТОСФЕНА *)
 00001    2  0 РRОGRАМ МАIN (ОUТРUТ);
 00001    3  1 VАR
 00001    4  1     РRIМЕ: АRRАУ [2..100] ОF ВООLЕАN;
 00001    5  1     N, К: INТЕGЕR;
 00007    6  2 _(
 00010    7  2     (* ОБНУЛИМ РRIМЕ *)
 00010    8  2     FОR N:=2 ТО 100 DО
 00011    9  2         РRIМЕ [N] := ТRUЕ;
 00025   10  2     (* ВЫЧИСЛИМ РRIМЕ *)
 00025   11  2     FОR N:=2 ТО 100 DО
 00027   12  2         IF РRIМЕ[N] ТНЕN
 00033   13  2             FОR К:=2 ТО ТRUNС (100/N) DО
 00040   14  2                 РRIМЕ [N*К] := FАLSЕ;
 00054   15  2     (* ПЕЧАТЬ РRIМЕ *)
 00054   16  2     FОR N:=2 ТО 100 DО
 00056   17  2         IF РRIМЕ[N] ТНЕN
 00062   18  2             WRIТЕ (N);
 00100   19  0 _).
                   WRIТLIВ*    01770

        SТАR*      01770        GIVСАLL*   02557        ТТАВLЕ*    02743
        МОNСАRD/ С 02422        ЕХЕСUТ     02621        SТАСОМР*   02774
        GIVLIВR*   02444        NЕWLIS     02647        DINСОМР* Е 03030
        GIVSЕRV* Е 02461        NОТLIS   Е 02655        ВLЕХРRIN   03076
        GIVТRАN*   02470        УЕSLIS   Е 02657          СВОБОД   03110
        SЕТТRАN* Е 02471        LТАВLЕ*    02661
        IDЕNТ6     02503        SТАВLЕ*  Е 02662

           *ЕХЕСUТЕ

        МАIN       01000        РАSРМDАD С 02672        МОNRЕАD*   03752
        РRОGRАМ  Е 01000        SТОР*      02673        RЕАD*ЕRR Е 04027
        Р/1D     С 01122        SРАСЕ*   С 02714        LUN*МОN    04045
        *ОUТРUТ* С 01340        РАSОUТ     02715        Р/НIDЕ     04053
        Р/SУS      01376        Р/РRINТ  Е 02716        Р/ЕDIН   Е 04056
        Р/МОD    Е 01412        РАSТN    Е 02754        Р/РАGЕS    04061
        Р/DIV    Е 01416        РАSWНТ   Е 02770        РАSРАGN* С 04062
        Р/IТ     Е 01430        Р/НТ       03031        РАSDRN*  С 04063
        Р/СО     Е 01432        РАSZЕRО* С 03043        РАSDRUМ* С 04064
        Р/RЕ1    Е 01440        Р/WХ       03044        Р/SТАСК  С 04065
        Р/RЕ2    Е 01602        Р/WХD    Е 03053        РАSРЕRID С 04066
        РАSСТRР  Е 01635        РАSЕОF     03071        РАSРLUS* С 04067
        Р/GF     Е 01710        IОХХРКRТ   03110        Р/А7       04070
        Р/RАСРАК Е 01747        RЕАD*    Е 03112        РАSНID     04076
        РАSINВUF Е 02017        РАSСЕLUР С 03144        РАSDIН   Е 04101
        РАSGIVЕР Е 02054        Р/ЕR       03145        МОN*IТОR   04105
        Р/РF     Е 02135        Р/7А       03154        РLВЕG    Е 04114
        Р/WОLN   Е 02166        Р/7АD    Е 03156        РLСLО    Е 04122
        Р/WL     Е 02167        Р/SР       03171        АSАVЕ*   Е 04130
        Р/RF     Е 02241        РАSМINS* С 03177        SАVЕ*НID Е 04135
        Р/ТF     Е 02324        Р/СW       03200        FОR*АLL  Е 04152
        Р/SС       02357        Р/ТRРАGЕ   03202        ОН*      Е 04154
        Р/DА       02367        Р/ВХ       03234        ОН*1     Е 04161
        Р/IS       02402        Р/ЕN     Е 03246        ISО/GОSТ   04170
        Р/ТR       02405        Р/WО       03262        СLЕАRLЕХ   04237
        Р/МI       02410        Р/WR       03313        DRUМТАР*   04251
        Р/WI       02413        РАSТЕNS  Е 03501        СОSУТISО   04277
        Р/ЕF       02474        РАSЕХFТ* С 03525        СОZУТISО Е 04277
        Р/Е      Е 02477        *РАSDDS* С 03544        IОХХТТWТ   04353
        Р/1        02502        RGЕХРОRТ С 03545        ТТРRINТD Е 04357
        РАSРМD     02506        *РАSТЕL* С 03546        ТТРRINТ  Е 04357
        Р/РМDSЕТ Е 02541        РАSЕVN     03577        ТТРRIКS  Е 04371
        РАSЕNDS* С 02647        РАSNВ8     03620        /IР*     Е 04437
        РАSЕОLSУ С 02650        РRINТ8     03630        Р/FIRР   С 06000
        РАSЕОFСD С 02651        РRINТ80  Е 03630        СНКWОRD* С 10000
        Р/ВЕХF     02652        РULТ       03666        ТSТАТЕ*  С 10001
        Р/МD       02657        Р/RС       03674          СВОБОД   10002
        Р/DI       02666        РАSISОХТ   03720

         2         3         5         7        11        13        17        19        23        29        31        37
   41        43        47        53        59        61        67        71        73        79        83        89        97
 КОНЕЦ ЗАДАЧИ
 00411: 00 074 0000	*74
