Дан массив натуральных чисел. найти сумму элементов, кратных данному k.

Program bb; uses crt; const n=30; var m: array[1..n]of integer;       i,k,s: integer; begin clrscr; randomize; for i: =1 to n do begin m[i]: =i; write(m[i],' '); end; writeln; write('k = '); read(k); writeln; s: =0; for i: =1 to n do if m[i] mod k = 0   then begin s: =s+m[i]; write(m[i],' '); end; writeln; writeln; writeln('сумма элементов кратных данному к = ',s); end.

Import java.util.scanner; public class myclass {       public static void main(string args[]) {               scanner in = new scanner(system.in);               int n = in.nextint();               if ((n+1) % 2 == 0)                       system.out.println(n+1);               else                       system.out.println(n+2);       } }

// pascalabc.net 3.3, сборка 1627 от 27.01.2018 // внимание! если программа не работает, обновите версию! begin   var n: =readlninteger;   if not n.inrange(10,100) then begin       writeln('ожидалось значение от 10 до 100');       exit       end;   var famh,namh,faml,naml: string;   var (hball,lball): =(-1.0,16.0);   loop n do begin       var a: =readlnstring.towords;       var avg: =(a[2].toreal+a[3].toreal+a[4].toreal)/3;       if avg> hball then (famh,namh,hball): =(a[0],a[1],avg)       else           if avg< lball then (faml,naml,lball): =(a[0],a[1],avg)       end;   writeln;   println('лучший',famh,namh);   println('худший',faml,naml) end.