Developing.ru

   case n of
1:
begin
WriteLn ('Введите выражение вида <аргумент1><действие><аргумент2>');
WriteLn ('Например: F2A1. C7+C1.85');
readLn (allst);
StProc (allst, gotst);
readLn;
end;

[code]
case n of
1:
begin
WriteLn ('Введите выражение вида <аргумент1><действие><аргумент2>');
WriteLn ('Например: F2A1. C7+C1.85');
readLn (allst);
StProc (allst, gotst);
readLn;
end;
[/code]

Эта часть кода у вас когда работать будет? :)

а вы просили исправить только на что ругается компилятор :)

Спасибо большое)

но результат, к сожалению не верный все равно((
он считает с ошибкой
какое бы выражение он не считал всегда ответ =0.
=(

смотри исправления

Помогите,сегодня курсовую сдавать..ошибку не могу исправить,точнее исправляю и программа летит.
(там в описании переменных паскаль ругается)
программа шестнадцатеричный калькулятор