Program e3; Var SUM, N:integer; Begin SUM := 0; For N:= 1 to 99 do SUM := SUM + N; Writeln(SUM) End.