File indexing completed on 2024-05-12 04:02:07
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>