// PascalABC.NET 3.4.2, сборка 1797 от 22.09.2018
// Внимание! Если программа не работает, обновите версию!
begin
var s := ReadlnString('Вводите:');
var from := 1;
var a := s.ReadReal(from);
var op := s.ReadWord(from)[1];
var b := s.ReadReal(from);
case op of
'+': Println(s, '=', a + b);
'-': Println(s, '=', a + b);
'*': Println(s, '=', a * b);
'/': Println(s, '=', a / b);
end;
end.