По блок-схеме составить программу на языке Паскаль, определяющую значение переменной b

program example1;var a,b:integer;begina:= 2;b:=0;if a=7 then writeln(b)elsebegina:= a+1;b:= b+a; writeln(b)end;end.