Question

решение задачи, можно, пожалуйста

Answer 1

var
i,sum: integer;
begin
for i:=1 to 100 do
sum:=sum+i;
Writeln(sum);
end.