массивыДан массив 50 целых чисел. Элементы массива могут принимать целочисленные значения от -40 до 40. Составьте программу вычисления суммы элеменов, меньших первого элемента.

program wk;
var mas:array [1..50] of integer;s,i:integer;
begin
 s:=0; 
 for i:=1 to 50 do 
  begin 
  mas[i]:=random(81)-40; 
  if mas[i]<mas[1] then s:=s+mas[i]; 
 end;
 writeln(s)
end.