Calculadora Exemplo Procedimento

program CalculadoraProc;

var

    opcao : integer;

    n1 : integer;

    n2 : integer;

procedure menu();

begin

    writeln('Menu');

    writeln('1 - somar');

    writeln('2 - subtrair');

    writeln('3 - multiplicar');

    writeln('4 - dividir');

    writeln('5 - sair');

    readln(opcao);

end;

procedure somar(var numero1, numero2 : integer);

var resultado : integer;

begin

    resultado := numero1 + numero2;

    writeln(resultado);

end;

procedure subtrair();

var numero1 : integer;

    numero2 : integer;

    resultado : integer;

begin

    write('Digite o primeiro numero: ');

    readln(numero1);

    write('Digite o segundo numero: ');

    readln(numero2);

    resultado := numero1 - numero2;

    writeln(resultado);

end;

procedure multiplicar();

var numero1 : integer;

    numero2 : integer;

    resultado : integer;

begin

    write('Digite o primeiro numero: ');

    readln(numero1);

    write('Digite o segundo numero: ');

    readln(numero2);

    resultado := numero1 * numero2;

    writeln(resultado);

end;

procedure dividir();

var numero1 : integer;

    numero2 : integer;

    resultado : real;

begin

    write('Digite o primeiro numero: ');

    readln(numero1);

    write('Digite o segundo numero: ');

    readln(numero2);

    resultado := numero1 / numero2;

    writeln(resultado:0:2);

end;

begin

    while(opcao <> 5) do

    begin

      menu;

      case opcao of

          1: begin

                 write('Digite o primeiro numero: ');

                 readln(n1);

                 write('Digite o segundo numero: ');

                 readln(n2);

                 somar(n1,n2);

             end;

          2: subtrair;

          3: multiplicar;

          4: dividir;

          5: writeln('Tchau');

          else

              writeln('Digita certo aih, seu panaca!');

      end;

    end;

end.