Дан массив из 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 prim;

var i,x : integer;

begin

x: =1;

for i: =1 to 5 do

begin write (x,'   ');

x: =x+2;

end;

end. 

здесь используется связка или, такое выражение ложно тогда и только тогда когда ложны высказывания из которых оно состоит, а в остальных случаях выражение истинно.

1. буква а первая буква в слове аист или сова - истинно.

2. две прямые на плоскости паралельны или пересекаются - истинно.

3. луна планета или 2+3=5 - ложь.