Запишите код по данному алгоритму на Паскале. Даю 20 баллов
var
a, b, s: real;
begin
a := 5;
b := -3.5;
s := a + b;
s := 2 * s - b;
write(s);
end.
var s,a,b:real;
a:=5;
b:=-3.5;
s:=a+b;
s:=2*s-b;
writeln('s = ',s);
program n_1;
a: integer;
b, s: real;
s := s * 2 - b;
writeln(s)