Постройте блок схему алгоритма, который увеличивает или уменьшает введённое число на 1, до тех пор, пока оно не станет равно 100.

Var i: integer;
begin
readln(i);
while i<>100 do
begin
if i>100 then dec(i) else inc(i);
end;
end.