ПОМОГИТЕ,СРОЧНО!!!!!!.Дано 15 чисел.Найти сумму тех чисел,которые кратны двум. нужно эту задачу сделать в while до завтра.

а можешь еще такую задачу написать?даны числа с интервалом с 1 до 50 с шагом 2.найти произведение тех чисел,у которых последняя цифра 3 или 6 и посчитать количество остальных.тоже в while надо,тоже на завтра.просто меня не было тогда когда объясняли тему,потому и не могу понять как писать :(

Добавил в решение. И посмотри, я в 1 задаче исправил кое что.

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;begini:=1;P:=1while i<=50 dobeginbeginif (i mod 10 = 3) or (i mod 10 = 6) thenP:=P*i;end;i=i+2;end;write(P);end.