todos

1. Program Acido_Base; (NOME DO PROGRAMA)
2. var elemento: (DECLARAÇÃO DE VARIÁVEIS)
3. array[1..6] of
4. string[2]; do 3 ao 4 (TIPOS DE VARIÁVEIS)
5. i:integer;
6. b:boolean; do 5 ao 7 (VARIÁVEIS)
7. e:string[3];

8. begin (INÍCIO DO PROGRAMA)
9. elemento[1]:='Cl';
10. elemento[2]:='Br'; do 9 ao 11(ELEMENTOS LIMITADOS,CUJO PROGRAMA SÓ IRÁ OS RECONHECER )
11. elemento[3]:='I';
12. writeln('Forneça um dos ametais da familia 7A da tabela periodica:'); (FRASE QUE O PROGRAMA IRÁ ESCREVER NA TELA DO COPILADOR-saída de dados via vídeo.)
13. readln(e); (ENTRADA DE DADOS VIA TECLADO)

14. b:=false; (PARA A VARIÁVEL ‘b’ ATRIBUI-SE ‘false’)
15. for i:=1 to 3 do (PARA A VARIÁVEL ‘i’ OSCILANDO DE 3 A 1 FAZER O QUE VEM A SEGUIR)
16. begin (INÍCIO CONTINUO)
17. if elemento[i]=e (SE O ELEMENTO DE ATRIBUIÇÃO DO USUÁRIO FOR O REFERIDO LIMITADO E IGUAL A VARIÁVEL ‘e’ FAZER O QUE VEM A SEGUIR)
18. then b:=true;
19. end;

20. while (b=false) do
21. begin
22. writeln('ERRO: Forneca um dos ametais da familia 7A da tabela periodica:');
23. readln(e);
24. for i:=1 to 3 do
25. begin
26. if elemento[i]=e
27. then b:=true;
28. end;
29. end;

30. writeln('Este ametal, reage com o ion H+ para formar o acido:');
31. writeln('H',e);
32. begin
33. elemento[4]:='Li';
34. elemento[5]:='Na';
35. elemento[6]:='K';

36. writeln('Forneca um dos metais da familia 1A da tabela periodica:');
37. readln(e);
38. b:=false;
39. end;
40. for i:=4 to 6 do
41. begin
42. if elemento[i]=e
43. then b:=true;
44. end;
45. while (b=false) do
46. begin
47. writeln('ERRO: Forneça um dos metais da familia 1A da tabela periodica:');
48. readln(e);
49. for i:=1 to 6 do
50. begin
51. if elemento[i]=e
52. then b:=true;
53. end;
54. end;
55. writeln('Este metal, reage com o ion OH- para formar a base:');
56. writeln(e,'OH');
57. readln;
58. end.