Калькулятор на Pascal... помогите )))

program calc;
var
operation:byte;
a,b:integer;
begin
writeln('a');
readln(a);
writeln('b');
readln(b);
writeln('1 - sum');
writeln('2 - sub');
writeln('3 - div');
writeln('4 - mul');
readln(operation);
case operation of:
1: writeln(a+b);
2: writeln(a-b);
3: writeln(trunc(a/b));
4: writeln(a*b);
end;
end.

Делаешь B string
Считы ваешь символ
Потом IFом/CASEом проверяешь и делаешь соответствующее действие.
А идеально вообще ввод полного примера и уже распарсить строчку на числа и действия.

uses crt;
var a,c,x: real;
var b: string;
begin
clrscr;

writeln('1 Число'); readln(a);
writeln('Действие'); readln(b);
writeln('2 Число'); readln(c);

case b of:
'+': writeln(a+b);
'-': writeln(a-b);
'*': writeln(a*b);
'/': writeln(a/b);
end;

readln;
end.

А в других языках есть eval, которой можно передать "a+b" и оно тебе вернет ответ :-)

В паскале придется case-ом перебирать все возможные математические функции

Какой-то код из Матрицы...

нененене не фига у тебя не выйдет. Тут надо кучу if then или case of применять. И анализировать b. Типа, если b='+', тогда x=a+b, и b как символ, а не число сделай. + - * / это ж не числа

предлагай юзеру на выбор
press 1 to +
press 2 to -
readline(b)
и так далее
потом
if b = 1
then otvet:=a+b
тему уловил?
сам синтаксис не помню т.к. изучал давно