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

VarS,i:integer;BeginS:=0;For i:= 1 to 100 do    S:=S+i;WriteLn('S = ',S);S:=0;i:=1;RepeatS:=S+i;i:=i+1Until 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.