Дан массив из n элементов. определить сумму тех элементов, которые кратны 5

Сделал через динамический массив тоесть размер вводится с клавиатуры program project2;   {$apptype console} var a: array of integer;     i,n,s: integer; begin    randomize;   s: =0;     readln(n); //вводим размер массива с клавиатуры      setlength(a,n);   //задаем размер массива  for i: =0 to length(a) do    a[i]: =random(100);   //геним массив   for i: =0 to length(a) do    if a[i] mod 5 =0 then  //ищем сумму     s: =s+a[i];     writeln('summ: ',s);   //выводим сумму    readln; end.

program xxx;

  var i, n : integer

                    d : array[1..30] of real;

begin

  write ('введите разметность массива n=');

  readln(n);

  writeln(''введите элементы массива d: ');

  for i: =1 to n do

        readln(d[i]);

  writeln ('исходный массив d: ');

  for i: =1 to n do

      write(d[i]);

  for i: =1 to n do

      if d[i] mod 3 = 0 then d[i]: = 2 * d[i];

  writeln ('полученный массив d: ');

  for i: =1 to n do

      write(d[i]);

  readln

end.

  var a,b,c,d: integer;

begin

writeln ('vvedite a');

  read(a);

writeln ('vvedite b');

  read(b);

writeln ('vvedite c');

  read(c);

writeln ('vvedite d');

  read(d);

if (a> b) and (a> c) and (a> d)  then writeln('samoe bolshoe chislo - a')

  else writeln('a ne samoe bolshoe');

end.