Напишите программу для тех, кто не сделал это задание в классе: Напишите программу, которая вычисляет выражение, состоящее из трех чисел и двух знаков (допускаются знаки «+», «–», «*» и «/» Выражение вводится как символьная строка, все числа целые. Операция «/» выполняется как целочисленное деление. Пример: Введите выражение: 12*3+45 ответ: 81

case <выражение-селектор > of <список значений1>: <оператор1;> <список значений 2>: <оператор2;> … <список значений N>: <операторN> else<оператор> end;

Program Number1; Var   a : integer; Begin   writeln('Введите цифру ');   readln(a);   if (a<0) or (a>9)     then       writeln ('Это число не является цифрой')     else       case a of         0 : writeln ('ноль');         1 : writeln ('один');         2 : writeln ('два');         3 : writeln ('три');         4 : writeln ('четыре');       end;   readln; End.