Написать программу для вычисления суммы чисел от 1 до 100 с использованием 3 видов цикла.

Var S,i:integer; Begin S:=0; For i:= 1 to 100 do     S:=S+i; WriteLn('S = ',S); S:=0; i:=1; Repeat S:=S+i; i:=i+1 Until i>100; WriteLn('S = ',S); S:=0; i:=0; While i<100 do    Begin    i:=i+1;    S:=S+i    End; WriteLn('S = ',S); End.