10 lines
127 B
ObjectPascal
10 lines
127 B
ObjectPascal
var i, s, n : integer;
|
|
|
|
begin
|
|
s := 0;
|
|
n := 100;
|
|
for i := 1 to n do begin
|
|
s := s + i;
|
|
writeln(s);
|
|
end;
|
|
end. |