Gostaria da ajuda do forum para fazer funcionar corretamente uma calculadora com as 4 operações aritimeticas utilizando o comando case.Utilizo o delphi 7.No final aparece a mensagem :(54) constant expression expected.Obrigado.
program calculadora_comando_case {$APPTYPE CONSOLE} uses SysUtils; var escolha:integer; result:real; primeiro_numero,segundo_numero:integer; begin writeln('Digite 1 para soma'); readln(escolha); writeln('Digite 2 para subtração'); readln(escolha); writeln('Digite 3 para multiplicação'); readln(escolha); writeln('Digite 4 para divisao'); readln(escolha); writeln('Digite o primeiro numero'); readln(primeiro_numero); writeln('Digite o segundo numero'); readln(segundo_numero); case escolha of 1: begin result := primeiro_numero + segundo_numero; End; 2: begin result := primeiro_numero - segundo_numero; End; 3: begin result := primeiro_numero * segundo_numero; End; 4: begin result := primeiro_numero / segundo_numero; End; writeln ('O resultado e:',result:2:2); End; readln; end.