1)Найти произведение четных чисел в промежутке от 23 до 5. 2) Найти сумму двухзначных чисел кратных 7

 var i,s:longint;begin s:=1; for i:=23 downto 5 dobeginif (i mod 2 = 0)then s:=s*i;end;writeln(s);end.2 var i, s : integer;begin  s:=1;  for i:= 14 to 98 do    if i mod 7 = 0 then s:=s*i;  writeln(s);  readlnend.