===== PascalABC.NET =====
begin
var s := ReadString.ToWords;
var a, b: real;
if not s[0].TryToReal(a) then
begin
Print('Значение', s[0], 'не является записью числа');
exit
end;
if not s[2].TryToReal(b) then
begin
Print('Значение', s[2], 'не является записью числа');
exit
end;
case s[1][1] of
'+': Print(a + b);
'-': Print(a - b);
'*': Print(a * b);
'/': Print(a / b);
else
Print('Разрешены операции <+>, <->, <*> и </>')
end;
end.