Написать программы суммирования чисел от 1 до 100, используя все циклические конструкции (Repeat..Until, While..Do, For..to). Найти среднее арифметическое этих чисел.

var sum,i:integer;sa:real;begini:=0;sum:=0;for i:=1 to 100 dosum:=sum+i;writeln(sum);sa:=sum/i;writeln(sa:1:2);end.