Пусть дано 100 целых чисел, которые вводятся по одному. Получите сумму кратных 5

var a,i:byte;
nech,otr,sum:word;
begin
sum:=0;{инициализация}
otr:=0;
nech:=0;
write('Input 100 numbers');
for i:=1 to 100 do
  begin
    readln(a);{ввод ста чисел}
    if a mod 5=0 then inc(sum,a){если кратны 5, то суммируем эти числа};
    if a<0 then inc(otr,a);{если меньше нуля, увеличиваем счетчик суммы на это число}
    if a mod 2=1 then inc(nech,a);{если нечетны, увеличиваем счетчик суммы на это число}
  end;
write('The sum of negative and odd  numbers are ', nech+otr);
write('The numbers, which divide into five are ', sum);
readln;
end.

sum:=0;
for i:=1 to 100 do
 if a[i] mod 5=0 then
  sum:=sum+a[i];

sum:=0;
for i:=1 to 100 do
 if (a[i] mod 2=1) and (a[i]<0) then
  sum:=sum+a[i];

uses
  crt;
const
  N=100;
var
  a:array[1..N]of integer;
  i,j,summ1,summ2:integer;
begin
  clrscr;
  summ1:=0;
  summ2:=0;
  {çàäàåì ìàññèâ}
  writeln('Èñõîäíûé ìàññèâ:');
  write('[ ');
  for i:=1 to N do
  begin
    a[i]:=random(80)-40;
    if a[i] mod 5 = 0 then
      inc(summ1,a[i]);
    if odd(a[i]) and (a[i]<0) then
      inc(summ2,a[i]);
    write(a[i],' ')
  end;
  writeln(']');
  writeln('Ñóììà êðàòíûõ 5: ',summ1);
  writeln('Ñóììà íå÷åòíûõ è îòðèöàòåëüíûõ: ',summ2)
end.