Hola, buenas tardes.
Intenté hacer este ejercicio pero a la hora de compilar el código que cree me marca una serie de errores en la linea 17 pero no logro ver el error, quería saber si me podían ayudar, adjunto el código. Muchas gracias, un saludo.
PROGRAM ej8a;
CONST
cent = '=';
VAR
sig : char;
tot, y : integer;
BEGIN
read (tot);
repeat
read (sig);
read (y);
case sig of
'+' : tot := tot + y;
'*' : tot := tot * y;
'/' : tot := tot DIV y;
'-' : tot := tot - y;
until (sig = cent);
writeLn (tot);
END.