Foros del web, para los que viven de bits

el problema es que cuando ejecuto este programa en FreePascal(una calculadora), el ejecutor primero me da para leer la variable num 1 , despues cuando tendria que leer la variable car, de tipo char, dice en pantalla 'Teclee un caracter' y ahi no me deja elegir el char, directamente escribe 'Ingrese el segundo numero del calculo'y pasa a leer la variable num2.

podrian ayudarme con el problema? gracias

program Calculadora;
USES CRT;

var
num1,num2:real;
car:char;
begin
ClrScr;
car:='0';
writeln ('Ingrese el primer numero del calculo');
read (num1);

writeln ('Teclee un caracter');
read (car);

writeln ('Ingrese el segundo numero del calculo');
read (num2);

case (car) of

'+' : write (num1 + num2);
'-' : write (num1 - num2);
'*' : write (num1 * num2);
'/' : write (num1 / num2);

else
write ('error');


end;
end.

prueba asi:

ojala te sirva

ok gracias me sirvio, la verdad deberia leer un poco mas acerca de read/readln, que es lo que tu has cambiado, saludos.