Написать программы суммирования чисел от 1 до 100, используя все циклические конструкции (repeat..until, while..do, for..to). найти среднее арифметическое этих чисел.

Var sum,i:integer;
sa:real;
begin
i:=0;
sum:=0;
for i:=1 to 100 do
sum:=sum+i;
writeln(sum);
sa:=sum/i;
writeln(sa:1:2);
end.