Concuerdo con todo lo dicho arriba, debes leer la guiá de estilo para hacer un post correctamente, porque sino "todo se va a la mierda"(me disculpo por la expresión), en cuanto a tu código, el propio compilador te esta dando la respuesta...
Cita:
...dice que espera un end en vez del else ...
|
y ademas la forma en que escribiste el if es incorrecta, ya que no tiene la estructura básica que te comentaba CarlosReyesg
Código Delphi
[-]var
answer, si, no: String[5];
N, Numero, cont, cont2, sumanum: byte;
Suma, resta, Num: Integer;
prom, mul, divi, raiz, pot: Single;
acum: integer;
begin
writeln('PROGRAMA PARA REALIZAR OPERACIONES ARITMETICAS BASICAS "N" VECES');
writeln;
writeln('Programado por KVSB, oct, 2018');
writeln;
writeln;
write('¿Desea realizar una suma?: ');
readln(answer);
writeln;
if answer=si then
writeln; write('¿Cuantos sumas desea realizar?: '); readln(N);
writeln;
for cont:=1 to n do
begin
suma:=0;
writeln;
write('¿Cuantos numeros desea sumar?: ');
readln(Numero);
writeln;
for cont2:=1 to Numero do
begin
writeln;
write('Escriba un numero: ');
Readln(num);
acum:= acum + num;
end;
suma:= suma + acum;
writeln;
writeln('La suma de los numeros es= ', suma);
writeln;
end;
else if answer = no then writeln('Enter para continuar');
readln;
writeln;
writeln('Enter para finalizar');
readln;
end.
espero haberme dado a entender (el fernet me tiene como rehén
)
P/d: bienvenida al club