Помогите по инфе с заданиями на циклы:

1. Вводятся 15 чисел, сколько из них удовлетворяют условиям нечетное и кратно 7

2. Вводятся 10 чисел, найдите их сумму

Uses crt;

var i, a, k:integer;

begin

for i:=1 to 15 do

begin

readln (a) ;

if (a mod 2=1) and (a mod 7=0) then inc (k) ;

end;

writeln (k) ;

end.

---

uses crt;

var i, a, sum:integer;

begin

sum:=0;

for i:=1 to 10 do

begin

readln (a) ;

sum:=sum+a;

end;

writeln (sum) ;

end.