Estava treinando no Pascal, então decidi criar uma calculadora, apenas para testar, porém o programa está encontrando um erro de "ELSE" no código. Poderiam me ajudar?
Irei selecionar a parte em que o programa diz que está errado.
O erro diz o seguinte: "ELSE não esperado".
SEGUE O CÓDIGO:
Program Calculadora; //NomeDoPrograma
var //Variáveis
opcao:integer;
opcao2:integer;
resposta1:real;
resposta2:real;
num1,num2:real;
resposta:real;
termo1:real;
termo2:real;
Begin
writeln('========= EXEMPLO DE PROGRAMA ==========');
writeln('PROGRAM MADE BY: JÃO');
writeln('Para usar o Programa, basta digitar a opcao de calculo.');
writeln('[ 1 ] Adicao');
writeln('[ 2 ] Subtracao');
writeln('[ 3 ] Multiplicacao');
writeln('[ 4 ] Divisao');
writeln('[ 5 ] Para mais informações do programa.');
writeln('E ai?');
read(opcao);
//Adicao
if opcao=1 then
clrscr;
Begin
writeln('Digite o primeiro numero da adicao:');
read(num1);
writeln('Digite o segundo numero da adicao:');
read(num2);
resposta:=(num1+num2);
writeln('Resposta: ',' ', round(resposta));
end
//Subtracao
else if opcao=2 then
begin
writeln('Digite o primeiro número da subtração:');
read(num1);
writeln('Digite o segundo número da subtração:');
read(num2);
resposta:=(num1-num2);
writeln('Resposta:',' ',round(resposta));
end
End.