Дан массив целых чисел, состоящий из 13 элементов. Заполнить его с клавиатуры.Найти сумму отрицательных элементов массива. С помощью оператора repeat.

var A:array[1..13] of integer;i,S:integer;begin  for i:=1 to 13 do begin  Write('A[',i,']='); Readln(a[i]);  end;i:=1  repat if a[i]<0 then S:=S+a[i];i:=i+1;until i<=0;Writeln(s);end.