калькулятор - ошибка

[adrin]

uses crt;
VAR     a,b,rez: Real;   {a и b - два числа, rez-результат}
	Oper: Char;   {oper  - знак арифметического действия}
BEGIN
        clrscr;
        ReadLn (a);
	ReadLn (oper);
	ReadLn (b);
	case oper of
                '+' : rez:=a+b;
                '-' : rez:=a-b;
                '*' : rez:=a*b;
                '/' : rez:=a/b;

                else  	   WriteLn('Таких действий не знаю')
	end;
        	WriteLn ('=', rez :11:8);
	ReadLn;
        ReadLn;
END.

Компилятор ошибок не нашел, но вместо результата вычислений получаю


В чем проблема?



___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Alex11223]

5+7 — ошибка (потому что пытается записать в а знак)
5
+
7 — все нормально

[adrin]

А как сделать что бы оно работало с набором в одну строку?

[Jaguar83]

1. Считай все выражение в строковую переменную.
2. Из этой строки извлекай значения в переменные a, oper, b. (и не забудь про преобразование строки в Real)
3. Далее выполняешь арифм. действие (это ты уже делал с помощью оператора case)

[hon]

Неверный формат числа.
Пиши не 7+5 {Enter}, а 7 {Enter} + {Enter} +5 {Enter} и все по маслу.