Question

построить протокол вычисленич по алгоритму
написать программу по данной схеме ​

Answer 1

program dz;

var A,B,C :integer;

begin

if A>0 then

B:=B + 2;

A:=A - B;

C:= A + B;

writeln(C);

end.