CONST
  count = 100;

VAR
  i, sum;

PROCEDURE inci;
BEGIN
    i := i + 1
END;

BEGIN
    i := 1;
    sum := 0;

    while i # count do begin
        sum := sum + i;
        call inci
    end;

    writeln sum;
END.