Решения задачи,написание программы.(Паскаль)

[Dr.Carlyxa]

Ребята выручайте,срочно надо решить задачку,без обид ребята кто решит оставляйте свой номер яндекс денег отблагодарю.

Дана последовательность из n действительных чисел (n<100).Написать программу для подсчёта суммы этих чисел.

[Niro]

Ручной ввод чисел

var massiv: array [1..100] of real;
    sum: real;
    n,i: integer;
begin
   clrscr;
   writeln ("Введите количество чисел");
   readln (n);
   
   for i:=1 to n do
    begin 
      writeln ("Введите ",i,"-ое число");
      readln (massiv [i]);
    end; 

   sum:=0;
   for i:=1 to n do
     sum:= sum + massiv [i];
   
   writeln ("Сумма последовательности равна ", sum:0:4);
   readln;
end.

Случайное заполнение числами

var massiv: array [1..100] of real;
    sum: real;
    n,i: integer;
begin
   clrscr;
   writeln ("Введите количество чисел");
   readln (n);
   
   randomize;
   for i:=1 to n do
     massiv [i]:= random (25)/3.5;

   sum:=0;
   for i:=1 to n do
     sum:= sum + massiv [i];
   
   writeln ("Сумма последовательности равна ", sum:0:4);
   readln;
end.

кошелька на яндексе нету,
можете кинуть деньжат на мобильник:
984 один девять три один семь шесть четыре