Дан массив из 20 натуральных чисел. Составить программу суммы элементов, кратных данному числу d .

Pascal ABCConst n=20; var a:array[1..n] of integer; var i,d,s:integer; begin s:=0; writeln(\'Введите число d\'); readln(d); writeln(\'Введите массив\'); for i:=1 to n do begin read(a[i]); if a[i] mod d = 0 then s:=s+a[i]; end; writeln(s); end. Второй вариант выполнения:Program num1;Uses crt;Vara :array [1..100] of integer;i,d,n, s : integer;Beginclrscr;s:=0;write(\'D=\');readln(d);write(\'N=\');readln(n);for i:=1 to n do readln(a[i]);for i:=1 to n doif (a[i] MOD d)=0 then s:=s+a[i];writeln(\'S=\',s);End.