Через if решать - если вписали 'такое-то слово' то ... иначе ...
Var a, b, s: real;
begin
a:=5;
b:=-3.5;
s:=a+b;
s:=2*s-b;
writeln(s)
end.
ОТВЕТ
6,5
Найди в интернете калькулятор и всё
<span>Вода: можно пить, лить, тушить огонь, мыть, играть и т.д.
Человек: потребляет пищу, играет, ходит, учится , думает головой, читает книги и т.д.
</span>