Подсчитать сумму 50 случайных чисел из диапазона от 0 до 200

vara,b,c:integer;d:array [1..50] of integer;beginfor a:=1 to 50 do begind[a]:=random(201);b:=b+d[a];end;writeln('Сумма: ',b);End.