написать программу которая заполняет масив из -10;20 и находит сумму кратных 5

var i,summa,x,y:integer; arr: array [-10..20] of integer;begin randomize; x:=0; for i:=-10 to 20 do begin arr[i]:=random(100); if arr[i] mod 5=0 then x:=x+arr[i]; end; writeln(x); end.

var  i,summa,x,y:integer;  arr: array [-10..20] of integer;begin  randomize;  x:=0;  for i:=-10 to 20 do    begin    arr[i]:=random(100);    if arr[i] mod 5=0 then      x:=x+arr[i];    end; writeln(x);  end.