прога на паскаль 30 баллов
Заполнить линейный массив по формуле: х[i]=2+i*5; Найти сумму элементов массива ,кратных 4 и 5.

var x: array[0..100] of Integer;i,n,sum: Integer;beginwriteln('Сколько ячеек заполнять?');readln(n);for i:=0 to n dobeginx[i]:=2+i*5;writeln(x[i]);end;for i:=0 to n dobeginif (x[i] mod 5=0) or (x[i] mod 4=0) thenInc(sum,x[i]);end;writeln('Сумма: ',sum);end.