Пожалуйста срочно умоляю
var
a, b, s: real;
begin
a := 5;
b := -3.5;
s := a + b;
s := 2 * s - b;
write(s);
end.
Результат: 6,5