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

 var i,s:longint;
begin s:=1; 
for i:=23 downto 5 do
beginif (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);  
readln
end.