Программирование в паскале, операции со строками. дана строка, содержащая информацию вида "число1 знак операции число2=". числа в этой строке не превышают 1000. найти значение выражения, содержащегося в строке.

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.