1, с клавиатуры вводятся 10 натуральных чисел. вычислить сумму четных элементов. 2, с клавиатуры вводятся 15 натуральных чисел. подсчитать количество элементов, кратных 3 и 5. 3, с клавиатуры вводятся 10 натуральных чисел. вычислить произведение чисел, больших 10, но меньших 20.

1. for i := 1 to 10 do begin readln(n); if (even(n)) then s := s + n; end;
2. for i := 1 to 15 do begin readln(n); if (n mod 3 = 0) and (n mod 5 = 0) then inc(c); end;
3. for i := 1 to 10 do begin readln(n); if (10 <= n) and (n <= 20) then m := m * n; end;