program Tabla;
uses crt;
var
variable: char;
lechuga: integer;
begin
clrscr;
writeln('Escribe un numero del 1-118 (Valores enteros)');
readln(lechuga);
case lechuga of
1: writeln('Hidrogeno');
2: writeln('Helio');
3: writeln('Litio');
4: writeln('Berlio');
5: writeln('Boro');
6: writeln('carbono');
7: writeln('Nitrógeno');
8: writeln('Oxigeno');
9: writeln('Fluor');
10: writeln('Neon');
11: WriteLn('Sodio');
12: writeln('Magnesio');
13: writeln('Aluminio');
14: writeln('Silicio');
15: writeln('Fosforo');
16: writeln('Azufre');
17: writeln('Cloro');
18: writeln('Argon');
19: writeln('Potasio');
20: writeln('Calcio');
21: writeln('Escandio');
22: writeln('Titanio');
23: writeln('Vanadio');
24: writeln('Cromo');
25: writeln('Manganeso');
26: writeln('Hierro');
27: writeln('Cobalto');
28: writeln('Niquel');
29: writeln('Cobre');
30: writeln('Zinc');
31: writeln('Galio');
32: writeln('Germanio');
33: writeln('Arsenico');
34: writeln('Selenio');
35: WriteLn('Bromo');
36: writeln('Kripton');
37: writeln('Rubidio');
38: writeln('Estroncio');
39: writeln('Itrio');
40: writeln('Zirconio');
41: writeln('Niobio');
42: writeln('Molibdeno');
43: writeln('Tecnecio');
44: writeln('Rutenio');
45: writeln('Rodio');
46: writeln('Paladio');
47: writeln('Plata');
48: writeln('Cadmio');
49: writeln('Indio');
50: writeln('Estaño');
51: writeln('Antimonio');
52: writeln('Telurio');
53: writeln('Yodo');
54: writeln('Xenon');
55: writeln('Cesio');
56: writeln('Bario');
57: writeln('Lantano');
58: writeln('Cerio');
59: writeln('Praseodimio');
60: writeln('Neodimio');
61: writeln('Prometio');
62: writeln('Samario');
63: writeln('Europio');
64: writeln('Gadolinio');
65: writeln('Terbio');
66: writeln('Disprosio');
67: writeln('Holmio');
68: writeln('Erbio');
69: writeln('tulio');
70: writeln('Iterbio');
71: writeln('Lutecio');
72: writeln('Hafnio');
73: writeln('Tantalo');
74: writeln('Tungsteno');
75: writeln('Renio');
76: writeln('Osmio');
77: writeln('Iridio');
78: writeln('Platino');
79: writeln('Oro');
80: writeln('Mercurio');
81: writeln('Talio');
82: writeln('Plomo');
83: writeln('Bismuto');
84: writeln('Polonio');
85: writeln('Astato');
86: writeln('Radon');
87: writeln('Francio');
88: writeln('Radio');
89: writeln('Actinio');
90: writeln('Torio');
91: writeln('Protactinio');
92: writeln('Uranio');
93: writeln('Neptunio');
94: writeln('Plutonio');
95: writeln('Americio');
96: writeln('Curio');
97: writeln('Berkelio');
98: writeln('Californio');
99: writeln('Einstenio');
100: writeln('Fermio');
101: writeln('Mendelevio');
102: writeln('Nobelio');
103: writeln('Lawrencio');
104: writeln('Rutherfordio');
105: writeln('Dubnio');
106: writeln('Seaborgio');
107: writeln('Bohrio');
108: writeln('Hassio');
109: writeln('Meitnerio');
110: writeln('Darmstadtio');
111: writeln('Roentgenio');
112: writeln('Darwanzio');
113: writeln('Tustrano');
114: writeln('Erristeneo');
115: writeln('Merchel');
116: writeln('Nectarten');
117: writeln('Efelio');
118: writeln('Oberon');
else
writeln('Inserta un valor solicitado: ');
end;
writeln('Quiere repetir el programa: S/N');
readln(variable);
clrscr;
if variable = 'S' then
writeln('Escribe un numero del 1-118 (Valores enteros)');
readln(lechuga);
case lechuga of
1: writeln('Hidrogeno');
2: writeln('Helio');
3: writeln('Litio');
4: writeln('Berlio');
5: writeln('Boro');
6: writeln('carbono');
7: writeln('Nitrógeno');
8: writeln('Oxigeno');
9: writeln('Fluor');
10: writeln('Neon');
11: WriteLn('Sodio');
12: writeln('Magnesio');
13: writeln('Aluminio');
14: writeln('Silicio');
15: writeln('Fosforo');
16: writeln('Azufre');
17: writeln('Cloro');
18: writeln('Argon');
19: writeln('Potasio');
20: writeln('Calcio');
21: writeln('Escandio');
22: writeln('Titanio');
23: writeln('Vanadio');
24: writeln('Cromo');
25: writeln('Manganeso');
26: writeln('Hierro');
27: writeln('Cobalto');
28: writeln('Niquel');
29: writeln('Cobre');
30: writeln('Zinc');
31: writeln('Galio');
32: writeln('Germanio');
33: writeln('Arsenico');
34: writeln('Selenio');
35: WriteLn('Bromo');
36: writeln('Kripton');
37: writeln('Rubidio');
38: writeln('Estroncio');
39: writeln('Itrio');
40: writeln('Zirconio');
41: writeln('Niobio');
42: writeln('Molibdeno');
43: writeln('Tecnecio');
44: writeln('Rutenio');
45: writeln('Rodio');
46: writeln('Paladio');
47: writeln('Plata');
48: writeln('Cadmio');
49: writeln('Indio');
50: writeln('Estaño');
51: writeln('Antimonio');
52: writeln('Telurio');
53: writeln('Yodo');
54: writeln('Xenon');
55: writeln('Cesio');
56: writeln('Bario');
57: writeln('Lantano');
58: writeln('Cerio');
59: writeln('Praseodimio');
60: writeln('Neodimio');
61: writeln('Prometio');
62: writeln('Samario');
63: writeln('Europio');
64: writeln('Gadolinio');
65: writeln('Terbio');
66: writeln('Disprosio');
67: writeln('Holmio');
68: writeln('Erbio');
69: writeln('tulio');
70: writeln('Iterbio');
71: writeln('Lutecio');
72: writeln('Hafnio');
73: writeln('Tantalo');
74: writeln('Tungsteno');
75: writeln('Renio');
76: writeln('Osmio');
77: writeln('Iridio');
78: writeln('Platino');
79: writeln('Oro');
80: writeln('Mercurio');
81: writeln('Talio');
82: writeln('Plomo');
83: writeln('Bismuto');
84: writeln('Polonio');
85: writeln('Astato');
86: writeln('Radon');
87: writeln('Francio');
88: writeln('Radio');
89: writeln('Actinio');
90: writeln('Torio');
91: writeln('Protactinio');
92: writeln('Uranio');
93: writeln('Neptunio');
94: writeln('Plutonio');
95: writeln('Americio');
96: writeln('Curio');
97: writeln('Berkelio');
98: writeln('Californio');
99: writeln('Einstenio');
100: writeln('Fermio');
101: writeln('Mendelevio');
102: writeln('Nobelio');
103: writeln('Lawrencio');
104: writeln('Rutherfordio');
105: writeln('Dubnio');
106: writeln('Seaborgio');
107: writeln('Bohrio');
108: writeln('Hassio');
109: writeln('Meitnerio');
110: writeln('Darmstadtio');
111: writeln('Roentgenio');
112: writeln('Darwanzio');
113: writeln('Tustrano');
114: writeln('Erristeneo');
115: writeln('Merchel');
116: writeln('Nectarten');
117: writeln('Efelio');
118: writeln('Oberon');
end;
readkey;
end.