Написать программу для вычисления суммы от 100 случайных натуральных чисел. Каждое число принадлежит промежутку от 0 до 100

var a:array[1..100] of integer;i,s:integer;begins:=0;for i:=1 to 100 do begina[i]:=random(101);Writeln('a[',i,']=',a[i]);s:=s+a[i];end;Writeln('Сумма равна ',s);end.