Warning, file /frameworks/syntax-highlighting/autotests/html/highlight.pas.dark.html was not indexed or was modified since last indexation (in which case cross-reference links may be missing, inaccurate or erroneous).
0001 <!DOCTYPE html> 0002 <html><head> 0003 <meta http-equiv="Content-Type" content="text/html; charset=UTF-8"/> 0004 <title>highlight.pas</title> 0005 <meta name="generator" content="KF5::SyntaxHighlighting - Definition (Pascal) - Theme (Breeze Dark)"/> 0006 </head><body style="background-color:#232629;color:#cfcfc2"><pre> 0007 <span style="font-weight:bold;">PROGRAM</span> MKFILE; 0008 0009 <span style="font-weight:bold;">USES</span> crt,algebra; 0010 0011 <span style="font-weight:bold;">TYPE</span> dt = <span style="font-weight:bold;">record</span> e : <span style="font-weight:bold;">record</span> name : <span style="color:#2980b9;">string</span> [<span style="color:#f67400;">15</span>]; 0012 zeichen : <span style="color:#2980b9;">string</span> [<span style="color:#f67400;">2</span>]; 0013 ozahl : <span style="color:#2980b9;">byte</span>; 0014 amasse : <span style="color:#2980b9;">string</span> [<span style="color:#f67400;">9</span>]; 0015 ent : <span style="font-weight:bold;">array</span> [<span style="color:#f67400;">1..4</span>] <span style="font-weight:bold;">of</span> <span style="color:#2980b9;">string</span> [<span style="color:#f67400;">70</span>] 0016 <span style="font-weight:bold;">end</span>; 0017 0018 c : <span style="font-weight:bold;">record</span> txt : <span style="font-weight:bold;">array</span> [<span style="color:#f67400;">1..10</span>] <span style="font-weight:bold;">of</span> <span style="color:#2980b9;">string</span> [<span style="color:#f67400;">40</span>]; 0019 radien : <span style="font-weight:bold;">array</span> [<span style="color:#f67400;">1..2</span>] <span style="font-weight:bold;">of</span> <span style="color:#2980b9;">string</span> [<span style="color:#f67400;">6</span>]; 0020 elneg : <span style="color:#2980b9;">string</span> [<span style="color:#f67400;">7</span>]; 0021 kladung : <span style="color:#2980b9;">string</span> [<span style="color:#f67400;">5</span>] 0022 <span style="font-weight:bold;">end</span>; 0023 0024 p : <span style="font-weight:bold;">record</span> smt : <span style="color:#2980b9;">string</span> [<span style="color:#f67400;">8</span>]; 0025 sdt : <span style="color:#2980b9;">string</span> [<span style="color:#f67400;">8</span>]; 0026 dichte : <span style="color:#2980b9;">string</span> [<span style="color:#f67400;">15</span>]; 0027 volmol : <span style="color:#2980b9;">string</span> [<span style="color:#f67400;">13</span>]; 0028 <span style="font-weight:bold;">end</span>; 0029 0030 u : <span style="font-weight:bold;">record</span> bio : <span style="font-weight:bold;">array</span> [<span style="color:#f67400;">1..13</span>] <span style="font-weight:bold;">of</span> <span style="color:#2980b9;">string</span> [<span style="color:#f67400;">30</span>]; 0031 hauf : <span style="font-weight:bold;">array</span> [<span style="color:#f67400;">1..4</span>] <span style="font-weight:bold;">of</span> <span style="color:#2980b9;">string</span> [<span style="color:#f67400;">30</span>]; 0032 geo : <span style="font-weight:bold;">array</span> [<span style="color:#f67400;">1..6</span>] <span style="font-weight:bold;">of</span> <span style="color:#2980b9;">string</span> [<span style="color:#f67400;">30</span>]; 0033 <span style="font-weight:bold;">end</span>; 0034 0035 s : <span style="font-weight:bold;">record</span> n : <span style="color:#2980b9;">byte</span>; 0036 bele : <span style="font-weight:bold;">array</span> [<span style="color:#f67400;">1..7</span>] <span style="font-weight:bold;">of</span> <span style="color:#2980b9;">byte</span>; 0037 <span style="font-weight:bold;">end</span>; 0038 0039 i : <span style="font-weight:bold;">record</span> first : <span style="color:#2980b9;">word</span>; 0040 last : <span style="color:#2980b9;">word</span>; 0041 c1 : <span style="font-weight:bold;">array</span> [<span style="color:#f67400;">1..100</span>] <span style="font-weight:bold;">of</span> <span style="color:#2980b9;">byte</span>; 0042 c2 : <span style="font-weight:bold;">array</span> [<span style="color:#f67400;">1..100</span>] <span style="font-weight:bold;">of</span> <span style="color:#2980b9;">byte</span>; 0043 c3 : <span style="font-weight:bold;">array</span> [<span style="color:#f67400;">1..100</span>] <span style="font-weight:bold;">of</span> <span style="color:#2980b9;">byte</span>; 0044 c4 : <span style="font-weight:bold;">array</span> [<span style="color:#f67400;">1..100</span>] <span style="font-weight:bold;">of</span> <span style="color:#2980b9;">byte</span>; 0045 hzeit : <span style="font-weight:bold;">array</span> [<span style="color:#f67400;">1..100</span>] <span style="font-weight:bold;">of</span> <span style="font-weight:bold;">array</span> [<span style="color:#f67400;">1..2</span>] <span style="font-weight:bold;">of</span> <span style="color:#2980b9;">string</span> [<span style="color:#f67400;">7</span>]; 0046 <span style="font-weight:bold;">end</span>; 0047 <span style="font-weight:bold;">end</span>; 0048 0049 cfg = <span style="font-weight:bold;">record</span> pse : <span style="color:#2980b9;">string</span>; 0050 bgi : <span style="color:#2980b9;">string</span>; 0051 info : <span style="color:#2980b9;">string</span>; 0052 <span style="font-weight:bold;">end</span>; 0053 0054 0055 <span style="font-weight:bold;">VAR</span> i : dt; 0056 h : <span style="font-weight:bold;">file</span> <span style="font-weight:bold;">of</span> dt; 0057 0058 t : cfg; 0059 u : <span style="font-weight:bold;">file</span> <span style="font-weight:bold;">of</span> cfg; 0060 0061 zstr : <span style="color:#2980b9;">string</span>; 0062 ozahl : <span style="color:#2980b9;">byte</span>; 0063 0064 <span style="font-weight:bold;">PROCEDURE</span> MKELEMENT (ozahl:<span style="color:#2980b9;">byte</span>); 0065 <span style="font-weight:bold;">BEGIN</span> <span style="font-weight:bold;">CASE</span> ozahl <span style="font-weight:bold;">OF</span> 0066 <span style="color:#f67400;">1</span> : i.e.name:=<span style="color:#f44f4f;">'Wasserstoff'</span>; 0067 <span style="color:#f67400;">2</span> : i.e.name:=<span style="color:#f44f4f;">'Helium'</span>; 0068 <span style="color:#f67400;">3</span> : i.e.name:=<span style="color:#f44f4f;">'Lithium'</span>; 0069 <span style="color:#f67400;">4</span> : i.e.name:=<span style="color:#f44f4f;">'Beryllium'</span>; 0070 <span style="color:#f67400;">5</span> : i.e.name:=<span style="color:#f44f4f;">'Bor'</span>; 0071 <span style="color:#f67400;">6</span> : i.e.name:=<span style="color:#f44f4f;">'Kohlenstoff'</span>; 0072 <span style="color:#f67400;">7</span> : i.e.name:=<span style="color:#f44f4f;">'Stickstoff'</span>; 0073 <span style="color:#f67400;">8</span> : i.e.name:=<span style="color:#f44f4f;">'Sauerstoff'</span>; 0074 <span style="color:#f67400;">9</span> : i.e.name:=<span style="color:#f44f4f;">'Fluor'</span>; 0075 <span style="color:#f67400;">10</span> : i.e.name:=<span style="color:#f44f4f;">'Neon'</span>; 0076 <span style="color:#f67400;">11</span> : i.e.name:=<span style="color:#f44f4f;">'Natrium'</span>; 0077 <span style="color:#f67400;">12</span> : i.e.name:=<span style="color:#f44f4f;">'Magnesium'</span>; 0078 <span style="color:#f67400;">13</span> : i.e.name:=<span style="color:#f44f4f;">'Aluminium'</span>; 0079 <span style="color:#f67400;">14</span> : i.e.name:=<span style="color:#f44f4f;">'Silicium'</span>; 0080 <span style="color:#f67400;">15</span> : i.e.name:=<span style="color:#f44f4f;">'Phosphor'</span>; 0081 <span style="color:#f67400;">16</span> : i.e.name:=<span style="color:#f44f4f;">'Schwefel'</span>; 0082 <span style="color:#f67400;">17</span> : i.e.name:=<span style="color:#f44f4f;">'Chlor'</span>; 0083 <span style="color:#f67400;">18</span> : i.e.name:=<span style="color:#f44f4f;">'Argon'</span>; 0084 <span style="color:#f67400;">19</span> : i.e.name:=<span style="color:#f44f4f;">'Kalium'</span>; 0085 <span style="color:#f67400;">20</span> : i.e.name:=<span style="color:#f44f4f;">'Calzium'</span>; 0086 <span style="color:#f67400;">21</span> : i.e.name:=<span style="color:#f44f4f;">'Scandium'</span>; 0087 <span style="color:#f67400;">22</span> : i.e.name:=<span style="color:#f44f4f;">'Titan'</span>; 0088 <span style="color:#f67400;">23</span> : i.e.name:=<span style="color:#f44f4f;">'Vanadium'</span>; 0089 <span style="color:#f67400;">24</span> : i.e.name:=<span style="color:#f44f4f;">'Chrom'</span>; 0090 <span style="color:#f67400;">25</span> : i.e.name:=<span style="color:#f44f4f;">'Mangan'</span>; 0091 <span style="color:#f67400;">26</span> : i.e.name:=<span style="color:#f44f4f;">'Eisen'</span>; 0092 <span style="color:#f67400;">27</span> : i.e.name:=<span style="color:#f44f4f;">'Cobalt'</span>; 0093 <span style="color:#f67400;">28</span> : i.e.name:=<span style="color:#f44f4f;">'Nickel'</span>; 0094 <span style="color:#f67400;">29</span> : i.e.name:=<span style="color:#f44f4f;">'Kupfer'</span>; 0095 <span style="color:#f67400;">30</span> : i.e.name:=<span style="color:#f44f4f;">'Zink'</span>; 0096 <span style="color:#f67400;">31</span> : i.e.name:=<span style="color:#f44f4f;">'Gallium'</span>; 0097 <span style="color:#f67400;">32</span> : i.e.name:=<span style="color:#f44f4f;">'Germanium'</span>; 0098 <span style="color:#f67400;">33</span> : i.e.name:=<span style="color:#f44f4f;">'Arsen'</span>; 0099 <span style="color:#f67400;">34</span> : i.e.name:=<span style="color:#f44f4f;">'Selen'</span>; 0100 <span style="color:#f67400;">35</span> : i.e.name:=<span style="color:#f44f4f;">'Brom'</span>; 0101 <span style="color:#f67400;">36</span> : i.e.name:=<span style="color:#f44f4f;">'Krypton'</span>; 0102 <span style="color:#f67400;">37</span> : i.e.name:=<span style="color:#f44f4f;">'Rubidium'</span>; 0103 <span style="color:#f67400;">38</span> : i.e.name:=<span style="color:#f44f4f;">'Strontium'</span>; 0104 <span style="color:#f67400;">39</span> : i.e.name:=<span style="color:#f44f4f;">'Yttrium'</span>; 0105 <span style="color:#f67400;">40</span> : i.e.name:=<span style="color:#f44f4f;">'Zirconium'</span>; 0106 <span style="color:#f67400;">41</span> : i.e.name:=<span style="color:#f44f4f;">'Niob'</span>; 0107 <span style="color:#f67400;">42</span> : i.e.name:=<span style="color:#f44f4f;">'Molybd�n'</span>; 0108 <span style="color:#f67400;">43</span> : i.e.name:=<span style="color:#f44f4f;">'Technetium'</span>; 0109 <span style="color:#f67400;">44</span> : i.e.name:=<span style="color:#f44f4f;">'Ruthenium'</span>; 0110 <span style="color:#f67400;">45</span> : i.e.name:=<span style="color:#f44f4f;">'Rhodium'</span>; 0111 <span style="color:#f67400;">46</span> : i.e.name:=<span style="color:#f44f4f;">'Paladium'</span>; 0112 <span style="color:#f67400;">47</span> : i.e.name:=<span style="color:#f44f4f;">'Silber'</span>; 0113 <span style="color:#f67400;">48</span> : i.e.name:=<span style="color:#f44f4f;">'Cadmium'</span>; 0114 <span style="color:#f67400;">49</span> : i.e.name:=<span style="color:#f44f4f;">'Indium'</span>; 0115 <span style="color:#f67400;">50</span> : i.e.name:=<span style="color:#f44f4f;">'Zinn'</span>; 0116 <span style="color:#f67400;">51</span> : i.e.name:=<span style="color:#f44f4f;">'Antimon'</span>; 0117 <span style="color:#f67400;">52</span> : i.e.name:=<span style="color:#f44f4f;">'Tellur'</span>; 0118 <span style="color:#f67400;">53</span> : i.e.name:=<span style="color:#f44f4f;">'Iod'</span>; 0119 <span style="color:#f67400;">54</span> : i.e.name:=<span style="color:#f44f4f;">'Xenon'</span>; 0120 <span style="color:#f67400;">55</span> : i.e.name:=<span style="color:#f44f4f;">'Caesium'</span>; 0121 <span style="color:#f67400;">56</span> : i.e.name:=<span style="color:#f44f4f;">'Barium'</span>; 0122 <span style="color:#f67400;">57</span> : i.e.name:=<span style="color:#f44f4f;">'Lanthan'</span>; 0123 <span style="color:#f67400;">58</span> : i.e.name:=<span style="color:#f44f4f;">'Cer'</span>; 0124 <span style="color:#f67400;">59</span> : i.e.name:=<span style="color:#f44f4f;">'Praseodym'</span>; 0125 <span style="color:#f67400;">60</span> : i.e.name:=<span style="color:#f44f4f;">'Neodym'</span>; 0126 <span style="color:#f67400;">61</span> : i.e.name:=<span style="color:#f44f4f;">'Promelthium'</span>; 0127 <span style="color:#f67400;">62</span> : i.e.name:=<span style="color:#f44f4f;">'Samarium'</span>; 0128 <span style="color:#f67400;">63</span> : i.e.name:=<span style="color:#f44f4f;">'Europium'</span>; 0129 <span style="color:#f67400;">64</span> : i.e.name:=<span style="color:#f44f4f;">'Gadolinium'</span>; 0130 <span style="color:#f67400;">65</span> : i.e.name:=<span style="color:#f44f4f;">'Terbium'</span>; 0131 <span style="color:#f67400;">66</span> : i.e.name:=<span style="color:#f44f4f;">'Dysprosium'</span>; 0132 <span style="color:#f67400;">67</span> : i.e.name:=<span style="color:#f44f4f;">'Holmiuim'</span>; 0133 <span style="color:#f67400;">68</span> : i.e.name:=<span style="color:#f44f4f;">'Erbium'</span>; 0134 <span style="color:#f67400;">69</span> : i.e.name:=<span style="color:#f44f4f;">'Thulium'</span>; 0135 <span style="color:#f67400;">70</span> : i.e.name:=<span style="color:#f44f4f;">'Ytterbium'</span>; 0136 <span style="color:#f67400;">71</span> : i.e.name:=<span style="color:#f44f4f;">'Lutetium'</span>; 0137 <span style="color:#f67400;">72</span> : i.e.name:=<span style="color:#f44f4f;">'Hafnium'</span>; 0138 <span style="color:#f67400;">73</span> : i.e.name:=<span style="color:#f44f4f;">'Tanal'</span>; 0139 <span style="color:#f67400;">74</span> : i.e.name:=<span style="color:#f44f4f;">'Wolfram'</span>; 0140 <span style="color:#f67400;">75</span> : i.e.name:=<span style="color:#f44f4f;">'Rhenium'</span>; 0141 <span style="color:#f67400;">76</span> : i.e.name:=<span style="color:#f44f4f;">'Osmium'</span>; 0142 <span style="color:#f67400;">77</span> : i.e.name:=<span style="color:#f44f4f;">'Iridium'</span>; 0143 <span style="color:#f67400;">78</span> : i.e.name:=<span style="color:#f44f4f;">'Platin'</span>; 0144 <span style="color:#f67400;">79</span> : i.e.name:=<span style="color:#f44f4f;">'Gold'</span>; 0145 <span style="color:#f67400;">80</span> : i.e.name:=<span style="color:#f44f4f;">'Quecksilber'</span>; 0146 <span style="color:#f67400;">81</span> : i.e.name:=<span style="color:#f44f4f;">'Thalium'</span>; 0147 <span style="color:#f67400;">82</span> : i.e.name:=<span style="color:#f44f4f;">'Blei'</span>; 0148 <span style="color:#f67400;">83</span> : i.e.name:=<span style="color:#f44f4f;">'Wissmut'</span>; 0149 <span style="color:#f67400;">84</span> : i.e.name:=<span style="color:#f44f4f;">'Polonium'</span>; 0150 <span style="color:#f67400;">85</span> : i.e.name:=<span style="color:#f44f4f;">'Astat'</span>; 0151 <span style="color:#f67400;">86</span> : i.e.name:=<span style="color:#f44f4f;">'Radon'</span>; 0152 <span style="color:#f67400;">87</span> : i.e.name:=<span style="color:#f44f4f;">'Francium'</span>; 0153 <span style="color:#f67400;">88</span> : i.e.name:=<span style="color:#f44f4f;">'Radium'</span>; 0154 <span style="color:#f67400;">89</span> : i.e.name:=<span style="color:#f44f4f;">'Actinium'</span>; 0155 <span style="color:#f67400;">90</span> : i.e.name:=<span style="color:#f44f4f;">'Thorium'</span>; 0156 <span style="color:#f67400;">91</span> : i.e.name:=<span style="color:#f44f4f;">'Protactinium'</span>; 0157 <span style="color:#f67400;">92</span> : i.e.name:=<span style="color:#f44f4f;">'Uran'</span>; 0158 <span style="color:#f67400;">93</span> : i.e.name:=<span style="color:#f44f4f;">'Neptunium'</span>; 0159 <span style="color:#f67400;">94</span> : i.e.name:=<span style="color:#f44f4f;">'Plutonium'</span>; 0160 <span style="color:#f67400;">95</span> : i.e.name:=<span style="color:#f44f4f;">'Americum'</span>; 0161 <span style="color:#f67400;">96</span> : i.e.name:=<span style="color:#f44f4f;">'Curium'</span>; 0162 <span style="color:#f67400;">97</span> : i.e.name:=<span style="color:#f44f4f;">'Berkelium'</span>; 0163 <span style="color:#f67400;">98</span> : i.e.name:=<span style="color:#f44f4f;">'Californium'</span>; 0164 <span style="color:#f67400;">99</span> : i.e.name:=<span style="color:#f44f4f;">'Einsteinium'</span>; 0165 <span style="color:#f67400;">100</span> : i.e.name:=<span style="color:#f44f4f;">'Fermium'</span>; 0166 <span style="color:#f67400;">101</span> : i.e.name:=<span style="color:#f44f4f;">'Mendelevium'</span>; 0167 <span style="color:#f67400;">102</span> : i.e.name:=<span style="color:#f44f4f;">'Nobelium'</span>; 0168 <span style="color:#f67400;">103</span> : i.e.name:=<span style="color:#f44f4f;">'Lawrencium'</span>; 0169 <span style="color:#f67400;">104</span> : i.e.name:=<span style="color:#f44f4f;">'Rutherfordium'</span>; 0170 <span style="color:#f67400;">105</span> : i.e.name:=<span style="color:#f44f4f;">'Dubnium'</span>; 0171 <span style="font-weight:bold;">END</span>; 0172 0173 <span style="font-weight:bold;">CASE</span> ozahl <span style="font-weight:bold;">OF</span> 0174 <span style="color:#f67400;">1</span> : i.e.zeichen:=<span style="color:#f44f4f;">'H'</span>; 0175 <span style="color:#f67400;">2</span> : i.e.zeichen:=<span style="color:#f44f4f;">'He'</span>; 0176 <span style="color:#f67400;">3</span> : i.e.zeichen:=<span style="color:#f44f4f;">'Li'</span>; 0177 <span style="color:#f67400;">4</span> : i.e.zeichen:=<span style="color:#f44f4f;">'Be'</span>; 0178 <span style="color:#f67400;">5</span> : i.e.zeichen:=<span style="color:#f44f4f;">'B'</span>; 0179 <span style="color:#f67400;">6</span> : i.e.zeichen:=<span style="color:#f44f4f;">'C'</span>; 0180 <span style="color:#f67400;">7</span> : i.e.zeichen:=<span style="color:#f44f4f;">'N'</span>; 0181 <span style="color:#f67400;">8</span> : i.e.zeichen:=<span style="color:#f44f4f;">'O'</span>; 0182 <span style="color:#f67400;">9</span> : i.e.zeichen:=<span style="color:#f44f4f;">'F'</span>; 0183 <span style="color:#f67400;">10</span> : i.e.zeichen:=<span style="color:#f44f4f;">'Ne'</span>; 0184 <span style="color:#f67400;">11</span> : i.e.zeichen:=<span style="color:#f44f4f;">'Na'</span>; 0185 <span style="color:#f67400;">12</span> : i.e.zeichen:=<span style="color:#f44f4f;">'Mg'</span>; 0186 <span style="color:#f67400;">13</span> : i.e.zeichen:=<span style="color:#f44f4f;">'Al'</span>; 0187 <span style="color:#f67400;">14</span> : i.e.zeichen:=<span style="color:#f44f4f;">'Si'</span>; 0188 <span style="color:#f67400;">15</span> : i.e.zeichen:=<span style="color:#f44f4f;">'P'</span>; 0189 <span style="color:#f67400;">16</span> : i.e.zeichen:=<span style="color:#f44f4f;">'S'</span>; 0190 <span style="color:#f67400;">17</span> : i.e.zeichen:=<span style="color:#f44f4f;">'Cl'</span>; 0191 <span style="color:#f67400;">18</span> : i.e.zeichen:=<span style="color:#f44f4f;">'Ar'</span>; 0192 <span style="color:#f67400;">19</span> : i.e.zeichen:=<span style="color:#f44f4f;">'K'</span>; 0193 <span style="color:#f67400;">20</span> : i.e.zeichen:=<span style="color:#f44f4f;">'Sa'</span>; 0194 <span style="color:#f67400;">21</span> : i.e.zeichen:=<span style="color:#f44f4f;">'Sc'</span>; 0195 <span style="color:#f67400;">22</span> : i.e.zeichen:=<span style="color:#f44f4f;">'Ti'</span>; 0196 <span style="color:#f67400;">23</span> : i.e.zeichen:=<span style="color:#f44f4f;">'V'</span>; 0197 <span style="color:#f67400;">24</span> : i.e.zeichen:=<span style="color:#f44f4f;">'Cr'</span>; 0198 <span style="color:#f67400;">25</span> : i.e.zeichen:=<span style="color:#f44f4f;">'Mn'</span>; 0199 <span style="color:#f67400;">26</span> : i.e.zeichen:=<span style="color:#f44f4f;">'Fe'</span>; 0200 <span style="color:#f67400;">27</span> : i.e.zeichen:=<span style="color:#f44f4f;">'Co'</span>; 0201 <span style="color:#f67400;">28</span> : i.e.zeichen:=<span style="color:#f44f4f;">'Ni'</span>; 0202 <span style="color:#f67400;">29</span> : i.e.zeichen:=<span style="color:#f44f4f;">'Cu'</span>; 0203 <span style="color:#f67400;">30</span> : i.e.zeichen:=<span style="color:#f44f4f;">'Zn'</span>; 0204 <span style="color:#f67400;">31</span> : i.e.zeichen:=<span style="color:#f44f4f;">'Ga'</span>; 0205 <span style="color:#f67400;">32</span> : i.e.zeichen:=<span style="color:#f44f4f;">'Ge'</span>; 0206 <span style="color:#f67400;">33</span> : i.e.zeichen:=<span style="color:#f44f4f;">'As'</span>; 0207 <span style="color:#f67400;">34</span> : i.e.zeichen:=<span style="color:#f44f4f;">'Se'</span>; 0208 <span style="color:#f67400;">35</span> : i.e.zeichen:=<span style="color:#f44f4f;">'Br'</span>; 0209 <span style="color:#f67400;">36</span> : i.e.zeichen:=<span style="color:#f44f4f;">'Kr'</span>; 0210 <span style="color:#f67400;">37</span> : i.e.zeichen:=<span style="color:#f44f4f;">'Rb'</span>; 0211 <span style="color:#f67400;">38</span> : i.e.zeichen:=<span style="color:#f44f4f;">'Sr'</span>; 0212 <span style="color:#f67400;">39</span> : i.e.zeichen:=<span style="color:#f44f4f;">'Y'</span>; 0213 <span style="color:#f67400;">40</span> : i.e.zeichen:=<span style="color:#f44f4f;">'Zr'</span>; 0214 <span style="color:#f67400;">41</span> : i.e.zeichen:=<span style="color:#f44f4f;">'Nb'</span>; 0215 <span style="color:#f67400;">42</span> : i.e.zeichen:=<span style="color:#f44f4f;">'Mo'</span>; 0216 <span style="color:#f67400;">43</span> : i.e.zeichen:=<span style="color:#f44f4f;">'Tc'</span>; 0217 <span style="color:#f67400;">44</span> : i.e.zeichen:=<span style="color:#f44f4f;">'Ru'</span>; 0218 <span style="color:#f67400;">45</span> : i.e.zeichen:=<span style="color:#f44f4f;">'Rh'</span>; 0219 <span style="color:#f67400;">46</span> : i.e.zeichen:=<span style="color:#f44f4f;">'Pd'</span>; 0220 <span style="color:#f67400;">47</span> : i.e.zeichen:=<span style="color:#f44f4f;">'Ag'</span>; 0221 <span style="color:#f67400;">48</span> : i.e.zeichen:=<span style="color:#f44f4f;">'Cd'</span>; 0222 <span style="color:#f67400;">49</span> : i.e.zeichen:=<span style="color:#f44f4f;">'In'</span>; 0223 <span style="color:#f67400;">50</span> : i.e.zeichen:=<span style="color:#f44f4f;">'Sn'</span>; 0224 <span style="color:#f67400;">51</span> : i.e.zeichen:=<span style="color:#f44f4f;">'Sb'</span>; 0225 <span style="color:#f67400;">52</span> : i.e.zeichen:=<span style="color:#f44f4f;">'Te'</span>; 0226 <span style="color:#f67400;">53</span> : i.e.zeichen:=<span style="color:#f44f4f;">'I'</span>; 0227 <span style="color:#f67400;">54</span> : i.e.zeichen:=<span style="color:#f44f4f;">'Xe'</span>; 0228 <span style="color:#f67400;">55</span> : i.e.zeichen:=<span style="color:#f44f4f;">'Cs'</span>; 0229 <span style="color:#f67400;">56</span> : i.e.zeichen:=<span style="color:#f44f4f;">'Ba'</span>; 0230 <span style="color:#f67400;">57</span> : i.e.zeichen:=<span style="color:#f44f4f;">'La'</span>; 0231 <span style="color:#f67400;">58</span> : i.e.zeichen:=<span style="color:#f44f4f;">'Ce'</span>; 0232 <span style="color:#f67400;">59</span> : i.e.zeichen:=<span style="color:#f44f4f;">'Pr'</span>; 0233 <span style="color:#f67400;">60</span> : i.e.zeichen:=<span style="color:#f44f4f;">'Nd'</span>; 0234 <span style="color:#f67400;">61</span> : i.e.zeichen:=<span style="color:#f44f4f;">'Pm'</span>; 0235 <span style="color:#f67400;">62</span> : i.e.zeichen:=<span style="color:#f44f4f;">'Sm'</span>; 0236 <span style="color:#f67400;">63</span> : i.e.zeichen:=<span style="color:#f44f4f;">'Eu'</span>; 0237 <span style="color:#f67400;">64</span> : i.e.zeichen:=<span style="color:#f44f4f;">'Gd'</span>; 0238 <span style="color:#f67400;">65</span> : i.e.zeichen:=<span style="color:#f44f4f;">'Tb'</span>; 0239 <span style="color:#f67400;">66</span> : i.e.zeichen:=<span style="color:#f44f4f;">'Dy'</span>; 0240 <span style="color:#f67400;">67</span> : i.e.zeichen:=<span style="color:#f44f4f;">'Ho'</span>; 0241 <span style="color:#f67400;">68</span> : i.e.zeichen:=<span style="color:#f44f4f;">'Er'</span>; 0242 <span style="color:#f67400;">69</span> : i.e.zeichen:=<span style="color:#f44f4f;">'Tm'</span>; 0243 <span style="color:#f67400;">70</span> : i.e.zeichen:=<span style="color:#f44f4f;">'Yb'</span>; 0244 <span style="color:#f67400;">71</span> : i.e.zeichen:=<span style="color:#f44f4f;">'Lu'</span>; 0245 <span style="color:#f67400;">72</span> : i.e.zeichen:=<span style="color:#f44f4f;">'Hf'</span>; 0246 <span style="color:#f67400;">73</span> : i.e.zeichen:=<span style="color:#f44f4f;">'Ta'</span>; 0247 <span style="color:#f67400;">74</span> : i.e.zeichen:=<span style="color:#f44f4f;">'W'</span>; 0248 <span style="color:#f67400;">75</span> : i.e.zeichen:=<span style="color:#f44f4f;">'Re'</span>; 0249 <span style="color:#f67400;">76</span> : i.e.zeichen:=<span style="color:#f44f4f;">'Os'</span>; 0250 <span style="color:#f67400;">77</span> : i.e.zeichen:=<span style="color:#f44f4f;">'Ir'</span>; 0251 <span style="color:#f67400;">78</span> : i.e.zeichen:=<span style="color:#f44f4f;">'Pt'</span>; 0252 <span style="color:#f67400;">79</span> : i.e.zeichen:=<span style="color:#f44f4f;">'Au'</span>; 0253 <span style="color:#f67400;">80</span> : i.e.zeichen:=<span style="color:#f44f4f;">'Hg'</span>; 0254 <span style="color:#f67400;">81</span> : i.e.zeichen:=<span style="color:#f44f4f;">'Tl'</span>; 0255 <span style="color:#f67400;">82</span> : i.e.zeichen:=<span style="color:#f44f4f;">'Pb'</span>; 0256 <span style="color:#f67400;">83</span> : i.e.zeichen:=<span style="color:#f44f4f;">'Bi'</span>; 0257 <span style="color:#f67400;">84</span> : i.e.zeichen:=<span style="color:#f44f4f;">'Po'</span>; 0258 <span style="color:#f67400;">85</span> : i.e.zeichen:=<span style="color:#f44f4f;">'At'</span>; 0259 <span style="color:#f67400;">86</span> : i.e.zeichen:=<span style="color:#f44f4f;">'Rn'</span>; 0260 <span style="color:#f67400;">87</span> : i.e.zeichen:=<span style="color:#f44f4f;">'Fr'</span>; 0261 <span style="color:#f67400;">88</span> : i.e.zeichen:=<span style="color:#f44f4f;">'Ra'</span>; 0262 <span style="color:#f67400;">89</span> : i.e.zeichen:=<span style="color:#f44f4f;">'Ac'</span>; 0263 <span style="color:#f67400;">90</span> : i.e.zeichen:=<span style="color:#f44f4f;">'Th'</span>; 0264 <span style="color:#f67400;">91</span> : i.e.zeichen:=<span style="color:#f44f4f;">'Pa'</span>; 0265 <span style="color:#f67400;">92</span> : i.e.zeichen:=<span style="color:#f44f4f;">'U'</span>; 0266 <span style="color:#f67400;">93</span> : i.e.zeichen:=<span style="color:#f44f4f;">'Np'</span>; 0267 <span style="color:#f67400;">94</span> : i.e.zeichen:=<span style="color:#f44f4f;">'Pu'</span>; 0268 <span style="color:#f67400;">95</span> : i.e.zeichen:=<span style="color:#f44f4f;">'Am'</span>; 0269 <span style="color:#f67400;">96</span> : i.e.zeichen:=<span style="color:#f44f4f;">'Cm'</span>; 0270 <span style="color:#f67400;">97</span> : i.e.zeichen:=<span style="color:#f44f4f;">'Bk'</span>; 0271 <span style="color:#f67400;">98</span> : i.e.zeichen:=<span style="color:#f44f4f;">'Cf'</span>; 0272 <span style="color:#f67400;">99</span> : i.e.zeichen:=<span style="color:#f44f4f;">'Es'</span>; 0273 <span style="color:#f67400;">100</span> : i.e.zeichen:=<span style="color:#f44f4f;">'Fm'</span>; 0274 <span style="color:#f67400;">101</span> : i.e.zeichen:=<span style="color:#f44f4f;">'Md'</span>; 0275 <span style="color:#f67400;">102</span> : i.e.zeichen:=<span style="color:#f44f4f;">'No'</span>; 0276 <span style="color:#f67400;">103</span> : i.e.zeichen:=<span style="color:#f44f4f;">'Lr'</span>; 0277 <span style="color:#f67400;">104</span> : i.e.zeichen:=<span style="color:#f44f4f;">'Rf'</span>; 0278 <span style="color:#f67400;">105</span> : i.e.zeichen:=<span style="color:#f44f4f;">'Db'</span>; 0279 <span style="font-weight:bold;">END</span>; 0280 <span style="font-weight:bold;">END</span>; 0281 0282 <span style="font-weight:bold;">PROCEDURE</span> MKBELE (ozahl:<span style="color:#2980b9;">byte</span>); 0283 <span style="font-weight:bold;">BEGIN</span> <span style="font-weight:bold;">IF</span> (ozahl><span style="color:#f67400;">2</span>) <span style="font-weight:bold;">THEN</span> i.s.bele[<span style="color:#f67400;">1</span>]:=<span style="color:#f67400;">2</span>; 0284 0285 <span style="font-weight:bold;">IF</span> (ozahl><span style="color:#f67400;">9</span>) <span style="font-weight:bold;">THEN</span> i.s.bele[<span style="color:#f67400;">2</span>]:=<span style="color:#f67400;">8</span>; 0286 0287 <span style="font-weight:bold;">IF</span> (ozahl><span style="color:#f67400;">28</span>) <span style="font-weight:bold;">THEN</span> i.s.bele[<span style="color:#f67400;">3</span>]:=<span style="color:#f67400;">18</span>; 0288 0289 <span style="font-weight:bold;">IF</span> (ozahl><span style="color:#f67400;">69</span>) <span style="font-weight:bold;">THEN</span> i.s.bele[<span style="color:#f67400;">4</span>]:=<span style="color:#f67400;">32</span>; 0290 0291 <span style="font-weight:bold;">IF</span> (ozahl><span style="color:#f67400;">87</span>) <span style="font-weight:bold;">THEN</span> i.s.bele[<span style="color:#f67400;">7</span>]:=<span style="color:#f67400;">2</span>; 0292 0293 <span style="font-weight:bold;">IF</span> (ozahl><span style="color:#f67400;">0</span>) <span style="font-weight:bold;">and</span> (ozahl<<span style="color:#f67400;">3</span>) <span style="font-weight:bold;">THEN</span> <span style="font-weight:bold;">BEGIN</span> i.s.n:=<span style="color:#f67400;">1</span>; 0294 i.s.bele[<span style="color:#f67400;">1</span>]:=ozahl; 0295 <span style="font-weight:bold;">END</span>; 0296 0297 <span style="font-weight:bold;">IF</span> (ozahl><span style="color:#f67400;">2</span>) <span style="font-weight:bold;">and</span> (ozahl<<span style="color:#f67400;">11</span>) <span style="font-weight:bold;">THEN</span> <span style="font-weight:bold;">BEGIN</span> i.s.n:=<span style="color:#f67400;">2</span>; 0298 i.s.bele[<span style="color:#f67400;">2</span>]:=ozahl-<span style="color:#f67400;">2</span>; 0299 <span style="font-weight:bold;">END</span>; 0300 0301 <span style="font-weight:bold;">IF</span> (ozahl><span style="color:#f67400;">10</span>) <span style="font-weight:bold;">and</span> (ozahl<<span style="color:#f67400;">19</span>) <span style="font-weight:bold;">THEN</span> <span style="font-weight:bold;">BEGIN</span> i.s.n:=<span style="color:#f67400;">3</span>; 0302 i.s.bele[<span style="color:#f67400;">3</span>]:=ozahl-<span style="color:#f67400;">10</span>; 0303 <span style="font-weight:bold;">END</span>; 0304 0305 <span style="font-weight:bold;">IF</span> (ozahl><span style="color:#f67400;">18</span>) <span style="font-weight:bold;">and</span> (ozahl<<span style="color:#f67400;">21</span>) <span style="font-weight:bold;">THEN</span> <span style="font-weight:bold;">BEGIN</span> i.s.n:=<span style="color:#f67400;">4</span>; 0306 i.s.bele[<span style="color:#f67400;">3</span>]:=<span style="color:#f67400;">8</span>; 0307 i.s.bele[<span style="color:#f67400;">4</span>]:=ozahl-<span style="color:#f67400;">18</span>; 0308 <span style="font-weight:bold;">END</span>; 0309 0310 <span style="font-weight:bold;">IF</span> (ozahl><span style="color:#f67400;">20</span>) <span style="font-weight:bold;">and</span> (ozahl<<span style="color:#f67400;">24</span>) <span style="font-weight:bold;">THEN</span> <span style="font-weight:bold;">BEGIN</span> i.s.n:=<span style="color:#f67400;">4</span>; 0311 i.s.bele[<span style="color:#f67400;">3</span>]:=ozahl-<span style="color:#f67400;">12</span>; 0312 i.s.bele[<span style="color:#f67400;">4</span>]:=<span style="color:#f67400;">2</span>; 0313 <span style="font-weight:bold;">END</span>; 0314 0315 <span style="font-weight:bold;">IF</span> (ozahl=<span style="color:#f67400;">24</span>) <span style="font-weight:bold;">THEN</span> <span style="font-weight:bold;">BEGIN</span> i.s.n:=<span style="color:#f67400;">4</span>; 0316 i.s.bele[<span style="color:#f67400;">3</span>]:=<span style="color:#f67400;">13</span>; 0317 i.s.bele[<span style="color:#f67400;">4</span>]:=<span style="color:#f67400;">1</span>; 0318 <span style="font-weight:bold;">END</span>; 0319 0320 <span style="font-weight:bold;">IF</span> (ozahl><span style="color:#f67400;">24</span>) <span style="font-weight:bold;">and</span> (ozahl<<span style="color:#f67400;">29</span>) <span style="font-weight:bold;">THEN</span> <span style="font-weight:bold;">BEGIN</span> i.s.n:=<span style="color:#f67400;">4</span>; 0321 i.s.bele[<span style="color:#f67400;">3</span>]:=ozahl-<span style="color:#f67400;">12</span>; 0322 i.s.bele[<span style="color:#f67400;">4</span>]:=<span style="color:#f67400;">2</span>; 0323 <span style="font-weight:bold;">END</span>; 0324 0325 <span style="font-weight:bold;">IF</span> (ozahl><span style="color:#f67400;">28</span>) <span style="font-weight:bold;">and</span> (ozahl<<span style="color:#f67400;">37</span>) <span style="font-weight:bold;">THEN</span> <span style="font-weight:bold;">BEGIN</span> i.s.n:=<span style="color:#f67400;">4</span>; 0326 i.s.bele[<span style="color:#f67400;">4</span>]:=ozahl-<span style="color:#f67400;">28</span>; 0327 <span style="font-weight:bold;">END</span>; 0328 0329 <span style="font-weight:bold;">IF</span> (ozahl><span style="color:#f67400;">36</span>) <span style="font-weight:bold;">and</span> (ozahl<<span style="color:#f67400;">39</span>) <span style="font-weight:bold;">THEN</span> <span style="font-weight:bold;">BEGIN</span> i.s.n:=<span style="color:#f67400;">5</span>; 0330 i.s.bele[<span style="color:#f67400;">4</span>]:=<span style="color:#f67400;">8</span>; 0331 i.s.bele[<span style="color:#f67400;">5</span>]:=ozahl-<span style="color:#f67400;">36</span>; 0332 <span style="font-weight:bold;">END</span>; 0333 0334 <span style="font-weight:bold;">IF</span> (ozahl><span style="color:#f67400;">38</span>) <span style="font-weight:bold;">and</span> (ozahl<<span style="color:#f67400;">41</span>) <span style="font-weight:bold;">THEN</span> <span style="font-weight:bold;">BEGIN</span> i.s.n:=<span style="color:#f67400;">5</span>; 0335 i.s.bele[<span style="color:#f67400;">4</span>]:=ozahl-<span style="color:#f67400;">30</span>; 0336 i.s.bele[<span style="color:#f67400;">5</span>]:=<span style="color:#f67400;">2</span>; 0337 <span style="font-weight:bold;">END</span>; 0338 0339 <span style="font-weight:bold;">IF</span> (ozahl><span style="color:#f67400;">40</span>) <span style="font-weight:bold;">and</span> (ozahl<<span style="color:#f67400;">46</span>) <span style="font-weight:bold;">THEN</span> <span style="font-weight:bold;">BEGIN</span> i.s.n:=<span style="color:#f67400;">5</span>; 0340 i.s.bele[<span style="color:#f67400;">4</span>]:=ozahl-<span style="color:#f67400;">29</span>; 0341 i.s.bele[<span style="color:#f67400;">5</span>]:=<span style="color:#f67400;">1</span>; 0342 <span style="font-weight:bold;">END</span>; 0343 0344 <span style="font-weight:bold;">IF</span> (ozahl=<span style="color:#f67400;">46</span>) <span style="font-weight:bold;">THEN</span> <span style="font-weight:bold;">BEGIN</span> i.s.n:=<span style="color:#f67400;">4</span>; 0345 i.s.bele[<span style="color:#f67400;">4</span>]:=<span style="color:#f67400;">18</span>; 0346 <span style="font-weight:bold;">END</span>; 0347 0348 <span style="font-weight:bold;">IF</span> (ozahl><span style="color:#f67400;">46</span>) <span style="font-weight:bold;">and</span> (ozahl<<span style="color:#f67400;">55</span>) <span style="font-weight:bold;">THEN</span> <span style="font-weight:bold;">BEGIN</span> i.s.n:=<span style="color:#f67400;">5</span>; 0349 i.s.bele[<span style="color:#f67400;">4</span>]:=<span style="color:#f67400;">18</span>; 0350 i.s.bele[<span style="color:#f67400;">5</span>]:=ozahl-<span style="color:#f67400;">46</span>; 0351 <span style="font-weight:bold;">END</span>; 0352 0353 <span style="font-weight:bold;">IF</span> (ozahl><span style="color:#f67400;">54</span>) <span style="font-weight:bold;">and</span> (ozahl<<span style="color:#f67400;">57</span>) <span style="font-weight:bold;">THEN</span> <span style="font-weight:bold;">BEGIN</span> i.s.n:=<span style="color:#f67400;">6</span>; 0354 i.s.bele[<span style="color:#f67400;">4</span>]:=<span style="color:#f67400;">18</span>; 0355 i.s.bele[<span style="color:#f67400;">5</span>]:=<span style="color:#f67400;">8</span>; 0356 i.s.bele[<span style="color:#f67400;">6</span>]:=ozahl-<span style="color:#f67400;">54</span>; 0357 <span style="font-weight:bold;">END</span>; 0358 0359 <span style="font-weight:bold;">IF</span> (ozahl=<span style="color:#f67400;">57</span>) <span style="font-weight:bold;">or</span> (ozahl=<span style="color:#f67400;">64</span>) <span style="font-weight:bold;">THEN</span> <span style="font-weight:bold;">BEGIN</span> i.s.n:=<span style="color:#f67400;">6</span>; 0360 i.s.bele[<span style="color:#f67400;">4</span>]:=ozahl-<span style="color:#f67400;">39</span>; 0361 i.s.bele[<span style="color:#f67400;">5</span>]:=<span style="color:#f67400;">9</span>; 0362 i.s.bele[<span style="color:#f67400;">6</span>]:=<span style="color:#f67400;">2</span>; 0363 <span style="font-weight:bold;">END</span>; 0364 0365 <span style="font-weight:bold;">IF</span> ((ozahl><span style="color:#f67400;">57</span>) <span style="font-weight:bold;">and</span> (ozahl<<span style="color:#f67400;">64</span>)) <span style="font-weight:bold;">or</span> ((ozahl><span style="color:#f67400;">64</span>) <span style="font-weight:bold;">and</span> (ozahl<<span style="color:#f67400;">71</span>)) 0366 <span style="font-weight:bold;">THEN</span> <span style="font-weight:bold;">BEGIN</span> i.s.n:=<span style="color:#f67400;">6</span>; 0367 i.s.bele[<span style="color:#f67400;">4</span>]:=ozahl-<span style="color:#f67400;">38</span>; 0368 i.s.bele[<span style="color:#f67400;">5</span>]:=<span style="color:#f67400;">8</span>; 0369 i.s.bele[<span style="color:#f67400;">6</span>]:=<span style="color:#f67400;">2</span>; 0370 <span style="font-weight:bold;">END</span>; 0371 0372 <span style="font-weight:bold;">IF</span> (ozahl=<span style="color:#f67400;">64</span>) <span style="font-weight:bold;">THEN</span> <span style="font-weight:bold;">BEGIN</span> i.s.n:=<span style="color:#f67400;">6</span>; 0373 i.s.bele[<span style="color:#f67400;">4</span>]:=<span style="color:#f67400;">25</span>; 0374 i.s.bele[<span style="color:#f67400;">5</span>]:=<span style="color:#f67400;">9</span>; 0375 i.s.bele[<span style="color:#f67400;">6</span>]:=<span style="color:#f67400;">2</span>; 0376 <span style="font-weight:bold;">END</span>; 0377 0378 <span style="font-weight:bold;">IF</span> (ozahl><span style="color:#f67400;">70</span>) <span style="font-weight:bold;">and</span> (ozahl<<span style="color:#f67400;">78</span>) <span style="font-weight:bold;">THEN</span> <span style="font-weight:bold;">BEGIN</span> i.s.n:=<span style="color:#f67400;">6</span>; 0379 i.s.bele[<span style="color:#f67400;">5</span>]:=ozahl-<span style="color:#f67400;">62</span>; 0380 i.s.bele[<span style="color:#f67400;">6</span>]:=<span style="color:#f67400;">2</span>; 0381 <span style="font-weight:bold;">END</span>; 0382 0383 <span style="font-weight:bold;">IF</span> (ozahl><span style="color:#f67400;">77</span>) <span style="font-weight:bold;">and</span> (ozahl<<span style="color:#f67400;">80</span>) <span style="font-weight:bold;">THEN</span> <span style="font-weight:bold;">BEGIN</span> i.s.n:=<span style="color:#f67400;">6</span>; 0384 i.s.bele[<span style="color:#f67400;">5</span>]:=ozahl-<span style="color:#f67400;">61</span>; 0385 i.s.bele[<span style="color:#f67400;">6</span>]:=<span style="color:#f67400;">1</span>; 0386 <span style="font-weight:bold;">END</span>; 0387 0388 <span style="font-weight:bold;">IF</span> (ozahl><span style="color:#f67400;">79</span>) <span style="font-weight:bold;">and</span> (ozahl<<span style="color:#f67400;">87</span>) <span style="font-weight:bold;">THEN</span> <span style="font-weight:bold;">BEGIN</span> i.s.n:=<span style="color:#f67400;">6</span>; 0389 i.s.bele[<span style="color:#f67400;">5</span>]:=<span style="color:#f67400;">18</span>; 0390 i.s.bele[<span style="color:#f67400;">6</span>]:=ozahl-<span style="color:#f67400;">78</span>; 0391 <span style="font-weight:bold;">END</span>; 0392 0393 <span style="font-weight:bold;">IF</span> (ozahl><span style="color:#f67400;">86</span>) <span style="font-weight:bold;">and</span> (ozahl<<span style="color:#f67400;">89</span>) <span style="font-weight:bold;">THEN</span> <span style="font-weight:bold;">BEGIN</span> i.s.n:=<span style="color:#f67400;">7</span>; 0394 i.s.bele[<span style="color:#f67400;">5</span>]:=<span style="color:#f67400;">18</span>; 0395 i.s.bele[<span style="color:#f67400;">6</span>]:=<span style="color:#f67400;">8</span>; 0396 i.s.bele[<span style="color:#f67400;">7</span>]:=ozahl-<span style="color:#f67400;">86</span>; 0397 <span style="font-weight:bold;">END</span>; 0398 0399 <span style="font-weight:bold;">IF</span> (ozahl><span style="color:#f67400;">88</span>) <span style="font-weight:bold;">and</span> (ozahl<<span style="color:#f67400;">91</span>) <span style="font-weight:bold;">THEN</span> <span style="font-weight:bold;">BEGIN</span> i.s.n:=<span style="color:#f67400;">7</span>; 0400 i.s.bele[<span style="color:#f67400;">5</span>]:=<span style="color:#f67400;">18</span>; 0401 i.s.bele[<span style="color:#f67400;">6</span>]:=ozahl-<span style="color:#f67400;">80</span>; 0402 <span style="font-weight:bold;">END</span>; 0403 0404 <span style="font-weight:bold;">IF</span> ((ozahl><span style="color:#f67400;">90</span>) <span style="font-weight:bold;">and</span> (ozahl<<span style="color:#f67400;">94</span>)) <span style="font-weight:bold;">or</span> (ozahl=<span style="color:#f67400;">96</span>) 0405 <span style="font-weight:bold;">THEN</span> <span style="font-weight:bold;">BEGIN</span> i.s.n:=<span style="color:#f67400;">7</span>; 0406 i.s.bele[<span style="color:#f67400;">5</span>]:=ozahl-<span style="color:#f67400;">71</span>; 0407 i.s.bele[<span style="color:#f67400;">6</span>]:=<span style="color:#f67400;">9</span>; 0408 <span style="font-weight:bold;">END</span>; 0409 0410 <span style="font-weight:bold;">IF</span> (ozahl><span style="color:#f67400;">93</span>) <span style="font-weight:bold;">and</span> (ozahl<<span style="color:#f67400;">96</span>) <span style="font-weight:bold;">THEN</span> <span style="font-weight:bold;">BEGIN</span> i.s.n:=<span style="color:#f67400;">7</span>; 0411 i.s.bele[<span style="color:#f67400;">5</span>]:=ozahl-<span style="color:#f67400;">70</span>; 0412 i.s.bele[<span style="color:#f67400;">6</span>]:=<span style="color:#f67400;">8</span>; 0413 <span style="font-weight:bold;">END</span>; 0414 0415 <span style="font-weight:bold;">IF</span> (ozahl><span style="color:#f67400;">96</span>) <span style="font-weight:bold;">and</span> (ozahl<<span style="color:#f67400;">103</span>) <span style="font-weight:bold;">THEN</span> <span style="font-weight:bold;">BEGIN</span> i.s.n:=<span style="color:#f67400;">7</span>; 0416 i.s.bele[<span style="color:#f67400;">5</span>]:=ozahl-<span style="color:#f67400;">70</span>; 0417 i.s.bele[<span style="color:#f67400;">6</span>]:=<span style="color:#f67400;">8</span>; 0418 <span style="font-weight:bold;">END</span>; 0419 0420 <span style="font-weight:bold;">IF</span> (ozahl><span style="color:#f67400;">102</span>) <span style="font-weight:bold;">and</span> (ozahl<<span style="color:#f67400;">106</span>) <span style="font-weight:bold;">THEN</span> <span style="font-weight:bold;">BEGIN</span> i.s.n:=<span style="color:#f67400;">7</span>; 0421 i.s.bele[<span style="color:#f67400;">5</span>]:=<span style="color:#f67400;">32</span>; 0422 i.s.bele[<span style="color:#f67400;">6</span>]:=ozahl-<span style="color:#f67400;">94</span>; 0423 <span style="font-weight:bold;">END</span>; 0424 <span style="font-weight:bold;">END</span>; 0425 0426 <span style="font-weight:bold;">BEGIN</span> Assign (u,<span style="color:#f44f4f;">'install.cfg'</span>); 0427 Reset (u); 0428 <span style="color:#000080;font-weight:bold;">Read</span> (u,t); 0429 Close (u); 0430 0431 clrscr; 0432 0433 <span style="font-weight:bold;">FOR</span> ozahl:=<span style="color:#f67400;">1</span> <span style="font-weight:bold;">TO</span> <span style="color:#f67400;">105</span> <span style="font-weight:bold;">DO</span> 0434 <span style="font-weight:bold;">BEGIN</span> INTSTR(ozahl,zstr); 0435 0436 assign (h,t.info + zstr + <span style="color:#f44f4f;">'.pse'</span>); 0437 <span style="color:#000080;font-weight:bold;">write</span> (t.info + zstr + <span style="color:#f44f4f;">'.pse'</span>); 0438 rewrite (h); 0439 reset (h); 0440 0441 i.e.ozahl:=ozahl; 0442 MKELEMENT(ozahl); 0443 MKBELE(ozahl); 0444 0445 <span style="color:#000080;font-weight:bold;">write</span> (h,i); 0446 close (h); 0447 0448 Writeln (<span style="color:#f44f4f;">'.......Erstellt'</span>); 0449 <span style="font-weight:bold;">END</span>; 0450 readkey; 0451 <span style="font-weight:bold;">END</span>. 0452 </pre></body></html>