[CrazyJiM]

считываешь по символу, а знак проверяешь с помощью if s(знак) = / then ... else if... s(знак) = * then... else if... и так со всеми знаками