Написать программу суммирования элементов массива, состоящего из 20 произвольных чисел до первого отрицательного числа.
Помогите плз срочно.

работает но не читабельно

В Pascal я вводил нормально,при копирование вот так вышло.Я не собираю еще сюда вводить в ручную.

lol

program symm;uses crt;const N=20;var masiv:array [1..20] of integer; i:integer; summa,x:integer;begin for i:= 1 to N do   begin    masiv[i]:=Random(25)-10;    Writeln(masiv[i])   end;  for i:= 1 to N do    if (masiv[i]>0) then    begin     x:=masiv[i];     summa:=summa+x;    end    else         begin    Writeln();     Writeln('Сумма элементов массива до первого отрицательного числа=',summa);     Halt    end;end.

const n=20;var a:array [1..n] of integer; s,i:integer; begin Randomize;for i:= 1 to n do begin a[i]:=Random(21)-10; Write(a[i],' ') end;writeln;s:=0;i:=1;while (i<=n)and(a[i]>0) do  begin s:=s+a[i]; i:=i+1; end;Writeln('Сумма элементов массива до первого отрицательного числа = ',s);end.Пример:7 4 -5 6 -3 0 4 4 4 3 0 0 5 6 9 6 3 -9 -3 6 Сумма элементов массива до первого отрицательного числа = 11