33 lines
1.7 KiB
ObjectPascal
33 lines
1.7 KiB
ObjectPascal
const
|
|
RevDate = '2024-12-28';
|
|
|
|
elementStr = '''
|
|
hydrogen helium lithium beryllium boron carbon
|
|
nitrogen oxygen fluorine neon sodium magnesium
|
|
aluminum silicon phosphorous sulfur chlorine argon
|
|
potassium calcium scandium titanium vanadium chromium
|
|
manganese iron cobalt nickel copper zinc
|
|
gallium germanium arsenic selenium bromine krypton
|
|
rubidium strontium yttrium zirconium niobium molybdenum
|
|
technetium ruthenium rhodium palladium silver cadmium
|
|
indium tin antimony tellurium iodine xenon
|
|
cesium barium lanthanum cerium praseodymium neodymium
|
|
promethium samarium europium gadolinium terbium dysprosium
|
|
holmium erbium thulium ytterbium lutetium hafnium
|
|
tantalum tungsten rhenium osmium iridium platinum
|
|
gold mercury thallium lead bismuth polonium
|
|
astatine radon francium radium actinium thorium
|
|
protactinium uranium neptunium plutonium americium curium
|
|
berkelium californium einsteinium fermium mendelevium nobelium
|
|
lawrencium rutherfordium dubnium seaborgium bohrium hassium
|
|
meitnerium darmstadtium roentgenium copernicium nihonium flerovium
|
|
moscovium livermorium tennessine oganesson
|
|
''';
|
|
|
|
elements = elementstr.towords(|#10, #13, ' '|);
|
|
|
|
begin
|
|
println('Last revision date: ', RevDate);
|
|
println('Number of elements: ', Elements.count);
|
|
println('Last element in list: ', Elements[^1]);
|
|
end.
|