niveskrpon Var a,b,s:real;
begin

a:=5;
b:=-3.5;
s:=a+b;
s:=2*s-b;
write(s);

end.

Результат выполнения алгоритма: 6.5