Помогите решить задачи по Информатике в циклах: 1. Вводятся 15 чисел, сколько из них…

1.program df; var a: array[1… 100] of integer; i,s: integer; begin read (n); s: =0; for i: =1 to 15 do if (a[i] mod 2=0) and (a[i] div 7=0) then s: =s+1; writeln (s); end.2.program df; var a: array[1… 100] of integer; i,s: integer; begin read (n); s: =0; for i: =1 to 10 do s: =s+a[i]; writeln (s); end.