По инфе с на циклы: 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.