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

Program chisla;
var i,S:integer;
begin
  i:=1;
  while i<=15 do
   begin
   begin
    if i mod 2 = 0 then 
    S:=S+i;
end;
i:=i+1;
end;
  write(S);
end.

  

pogram chislo;
var i,P: integer;
begin
i:=1;
P:=1
while i<=50 do
begin
begin
if (i mod 10 = 3) or (i mod 10 = 6) then
P:=P*i;
end;
i=i+2;
end;
write(P);
end.