Как посчитать сумму? - Pascal

Формулировка задачи:

Допустим, переменная n:='какой-то знак'('+', '-', '*', '/') И есть переменные a и b. Возможно ли с помощью 3 этих переменных посчитать сумму a и b, и если да, то как?

Решение задачи: «Как посчитать сумму?»

Листинг программы

var a,b:real;
     n:char;
begin
writeln('Введите 2 числа');
readln(a,b);
write('Введите оператор + - * /');
readln(n);
case n of
'+':write(a+b);
'-':write(a-b);
'*':write(a*b);
'/':if b=0 then write('Деление на 0')
   else write(a/b);
else write('такого оператора нет');
end;
end.

Объяснение кода листинга программы

Объявлены три переменные: a, b и n типа real и char соответственно.
Выводится сообщение Введите 2 числа и происходит чтение двух чисел в переменные a и b.
Выводится сообщение Введите оператор + - * / и происходит чтение оператора в переменную n.
Происходит проверка значения переменной n на соответствие одному из четырех допустимых операторов.
В зависимости от значения переменной n выполняется соответствующая операция: сложение, вычитание, умножение или деление.
Если введенный оператор не соответствует ни одному из допустимых значений, выводится сообщение такого оператора нет.
Если в процессе выполнения операции деления на ноль, выводится сообщение Деление на 0.
Результат операции выводится на экран.