Написать программу на языке паскаль подсчета суммы всех отрицательных элементов массива размерностью 100 элементов

var   i,sum : integer;                           // объявляем переменные целочисленного типа.   arr : array [1..100] of integer;     // объявляем массив.Begin     for i:= 1 to 100 do         // начало цикла.      begin         arr[i] := random(-100,100); // заполняем элемент массива числом  от -100 до 100.         if arr[i] < 0 then                  // если элемент отрицательный.            sum := sum + arr[i];        // считаем сумму элементов.      end;   writeln(\'Сумма отрицательных элементов массива: \', sum);   //вывод строки на экран.End.