Buenas, estoy haciendo el ejercicio y probe con este codigo:
Program calc;
var p, total: integer;
operacion: char;
begin
read(operacion) ;
repeat
read(p);
case operacion of
'/' : total := total DIV p;
'+' : total := total + p;
'-' : total := total - p;
'*' : total := total * p;
read(operacion);
until (operacion='=');
WriteLn('El resultado final es: ', total)
end.
Y me salta esto: calc.pas(6,5) Fatal: Syntax error, ";" expected but "REPEAT" found
No se donde pretende que ponga el ';' o que puede ser que este provocando ese error.
Gracias