40 элементов массива найти сумму отрицательных элементов кратных 5

For i:=1 to 40 do begin   
if (a[i]<0) and (a[i] mod 5 =0) then k:=k+a[i];   
end;   
writeln;   
write('сумма ',k);

Var a:array[1..40] of integer;
i,s:integer;
begin
s:=0;
for i:=1 to 40 do begin
a[i]:=random(200)-100;
Writeln('a[',i,']=',a[i]);
if (a[i] mod 5=0) and (a[i]<0) then
s:=s+a[i];
end;
Writeln('Сумма отрицательных элементов кратных 5 равна: ',s);
end.

Я ответил, но ответ почему-то не сохранился.
1) Минимально в компьютер входят: системный блок, клавиатура и монитор.
Мышь, принтер и сканер не входят! Во времена MS-DOS работали без мышей, принтер подключали редко, а сканеров тогда вообще не было.

2) В системный блок входят материнская плата, на ней процессор, память, микросхема BIOS. В слоты вставляются видеокарта и звуковая карта.
Хотя в последнее время видео и звук ставят сразу на материнскую плату, но они обычно плохого качества, нормальные нужно ставить в слоты отдельно.
На шлейфах подключаются винчестер и CD/DVD дисковод.
Иногда Blue-Ray, но это пока редкость. Раньше еще были дисководы для дискет, 5,25 дюймов и 3,5 дюйма, последние еще иногда встречаются.
В сервере даже видеокарта и монитор не нужны.

3) Контроллер - это микросхема, плата или даже программа, которая управляет какой-то периферией, например, видео, звуком или сканером.

4) Физически устройства соединяются через слоты, раньше были ISA и VLB, сейчас PCI, PCI-Express, SCSI и другие.
А также через шлейфы или просто по проводам.

5) Информация по шине попадает на нужное устройство благодаря шине адреса, в которой заложено, куда эта информация должна прийти.

[Текст из сниппета]

[Припев]

Эти цепи на мне, сук, лавэ

Сотка тыщ на Black LV

Сотни сук хотят ко мне

Сотни сук хотят ко мне

Как дела? Как дела?

Это новый Cadillac

Делать деньги, делать деньги

Делать деньги, бл*ть, вот так (few-few)

[Куплет]

...

Быстрей, посмотри

Вам подарок, а мне часы

Drip на шее, всё под жопой

Мне чуть больше двадцати

[Припев]

Эти цепи на мне, сук, лавэ

Сотка тыщ на Black LV

Сотни сук хотят ко мне

Сотни сук хотят ко мне

Как дела? Как дела?

Это новый Cadillac

Делать деньги, делать деньги

Делать деньги, бл*ть, вот так (few-few)