Buenas, estoy probando y tengo una duda sobre la ejecución en wsl, tengo un programa que compila y se ejecuta solo que para que imprima el resultado debo darle dos veces enter. Esto no sucede en windows donde solo con ingresar los datos y dar enter una vez hace todo. La duda es si esto es un error en el programa o es normal en linux.
Paso el código:
program polemico;
var a, c: char;
d, resultado: integer;
begin
read(a);
resultado := ord(a)-48;
while a <> '=' do
begin
read(a);
read(c);
if a = '+' THEN
resultado := resultado + (ord(c)-48)
else if a = '-' then
resultado := resultado - (ord(c)-48)
else if a = '/' then
resultado := resultado div (ord(c)-48)
else if a = '*' then
resultado := resultado * (ord(c)-48)
end;
writeln(resultado)
end.
Saludos, David