Exercícios processamento de dados

Questões:

Referentes a funções:
1. Faça um programa calculadora simples com as seguintes operações possíveis: adição, subtração, multiplicação e divisão. O programa inicia apresentando ao usuário um menu de opções como mostrado abaixo: Calculadora Simples. Opções : 1. Adição 2. Subtração 3. Multiplicação 4. Divisão 5. Sair do programa
Entre com sua opção:
Crie uma função que apresenta o menu inicial acima e retorna a opção do usuário para o programa principal. Esta opção é então analisada e o programa principal chama as funções de adição, subtração, multiplicação e divisão conforme a opção do usuário. Se a opção for inválida, informe ao usuário e peça a ele para entrar com uma opção válida. Após a execução da operação o programa volta a apresentar o menu inicial até que o usuário encerre o programa com a opção 5.

Program Calculadora; var opcao:integer; numero1,numero2:real; {Para somar dois numeros} procedure adicao(n1,n2: real); var resultado:real; begin resultado:=n1+n2; opcao:=2; writeln('Resultado: ',resultado); end; {Para subtrair dois numeros} procedure subtracao(n1,n2:real); var resultado:real; begin resultado:=n1-n2; writeln('Resultado: ',resultado); end; {Para multiplicar dois numeros} procedure multiplicacao(n1,n2:real); var resultado:real; begin resultado:=n1*n2; writeln('Resultado: ',resultado); end; {Para dividir} procedure divisao(n1,n2: real); var resultado:real; begin resultado:=n1/n2; writeln('Resultado: ',resultado); end; function op :integer; var opcao:integer; begin writeln('1. Adição'); writeln('2. Subtração'); writeln('3. Multiplicação'); writeln('4. Divisão'); writeln('5. Sair'); writeln('Qual a sua opção: '); read(opcao); end;

Begin {Comandos} opcao:=0; {Para repetição