Дан массив целых чисел

program z4; uses crt; var a: array[1… 25] of shortint; i: byte; s: longint; beginclrscr; randomize; for i: =1 to 25 do begina[i]: =random (10-10+1)+-10; write (a[i]: 4); if a[i]<0 thens: =s+a[i]*a[i]*a[i]; end; writeln; write ('‘Сумма кубов отрицательных чисел равна ',s); readkeyend.