Напишите программу определяющую сумму всех чисел от 1 до 100. S:=S+x

Question

Напишите программу определяющую сумму всех чисел от 1 до 100. S:=S+x

Answer 1

//Pascal
var S, x: integer;
begin
S := 0;
for x := 1 to 100 do S := S + x;
writeln(S); 
end.