joaoz1404

@KXSY porém quando o usuário digitar qualquer outro número, como 6 , 7 , 8 e etc, a operação vai continuar , qual instrução eu poderia usar. 

Muito obrigado, realmente não consegui pensar na parte final do programa. 

Estou tentando resolver um exercício de algoritmo que pede para fazer uma calculadora com o uso do comando While, porém meu código está apresentando alguns problemas e não estou conseguindo encontrar o erro. 

program calculadora;

var 
n1,n2,resultado: real;
op: string; 

begin
  
  while op <> '5' do
  begin
  
    writeln('1-adição');
    writeln('2-subtração');
    writeln('3-divisão');
    writeln('4-multiplicação');
    writeln('5-sair'); 
  
    writeln('Escolha uma opção de 1 a 5');
    readln(op);
  
    writeln('Valor 1: ');
    readln(n1); 
    
    writeln('Valor 2: ');
    readln(n2);
  
  
  //soma
  
    if (op='1') then
    resultado:= n1+n2
  
  //subtração 
  
    else if (op='2') then 
    resultado:= n1-n2
  
 // divisão 
 
    else if (op='3') then 
    resultado:= n1/n2
 
 //multiplicação 
 
    else if (op='4') then 
    resultado:= n1*n2 ;
 
    
//resultado
 
    writeln('resultado: ', resultado:0:2);
    writeln('Escolha uma opção de 1 a 5');
    readln(op);
    end; 
end.

@devair1010 Agora funcionou. Aquele último end (com ponto e vírgula no final), indica que o programa em geral terminou? 

E o End (com ponto final)? 

Estou resolvendo um exercício que pede para fazer um programa de fidelidade. Quando executo o programa aparece erro sintático não esperado. 

Program fidelidade ;
  uses
      CRT;
var

livro: integer;

Begin
writeln('Informe a quantidade de livros comprado.: ');
readln(livro);
case livro of
    0: begin
    writeln('Ele ganhará 0 pontos');
    readln;
    end;
    1: begin
    writeln('Ele ganhará 5  pontos');
    readln;
    end;
    2: begin
    writeln('Ele ganhará 15 pontos');
    end;
    3: begin
    writeln('Ele ganhará 30 pontos');
    end;
    4 ..100: begin
    writeln('Ele ganhará 60 pontos');
    end;
    
End.