Постройте блок схему алгоритма, который увеличивает или уменьшает введённое число на 1, до тех пор, пока оно не станет равно 100.
Var i: integer; begin readln(i); while i<>100 do begin if i>100 then dec(i) else inc(i); end; end.
Помогите пожалуйста .