Hola Muy Buenas,
estoy tratando de compilar un programita para un trabajo practico y me da Error 112 Error in statement. y la verdad que no puedo encontrarle la vuelta, trate de sacarle los ; dentro del if y varias cosas pero no entiendo, se que debe ser algo muy estupido peor bue, deasde ya muchas gracias si alguien puede ayudarme,
el codigo es el siguiente:
Program macro;
VAR
producto, cantidad : INTEGER;
BEGIN
Writeln(' 1 - Galletitas ; 2 - Cereal ; 3 - Leche');
Writeln('Ingrese el producto (numero) :');
Readln(producto);
CASE producto OF
1: Writeln('Galletitas');
2: Writeln('Cereal');
3: Writeln('Leche');
ELSE
Writeln('El numero Ingresado es incorrecto');
end;
Writeln('Ingrese la cantidad de gramos/ml ingeridos');
Readln(cantidad);
IF producto=1 then
writeln('Usted ingirio ');
writeln((cantidad*4.4)/40:2:2, ' grs. de proteinas');
writeln((cantidad*24.8)/40:2:2, ' grs. de carbohidratos');
writeln((cantidad*4.2)/40:2:2, ' grs. de lipidos');
writeln((cantidad*181)/40:2:2, ' calorias');
ELSE if producto=2 then
writeln('Usted ingirio ');
writeln((cantidad*8.7)/100:2:2, ' grs. de proteinas');
writeln((cantidad*86.2)/100:2:2, ' grs. de carbohidratos');
writeln((cantidad*1.1)/100:2:2, ' grs. de grasas');
writeln((cantidad*290)/100:2:2, ' calorias');
ELSE if producto=3 then
writeln('Usted ingirio ');
writeln((cantidad*3)/100:2:2, ' grs. de proteinas');
writeln((cantidad*4.5)/100:2:2, ' grs. de carbohidratos');
writeln((cantidad*3)/100:2:2, ' grs. de grasas');
writeln((cantidad*57)/100:2:2, ' calorias');
ELSE
writeln('Los valores ingresados son incorrectos');
readln;
end.
