Написать программу вычисления суммы кратных 5 из натурального ряда чисел от 1 до n, и произведение чисел кратных 3 (2 способа: for,while)

var   i, s, p :integer; begin write ('n='); readln (n); s:=0; p:=1;   for i:=1 to n do     begin      if i mod 5=0 then  s:=s+i;      if i mod 3=0 then  p:=p*i     end;   Writeln ('s=', s, '   p=', p) end. 2) var   i, s, p :integer; begin write ('n='); readln (n); s:=0; p:=1;    i:=1  while i<= n do     begin      if i mod 5=0 then  s:=s+i;      if i mod 3=0 then  p:=p*i;      i:=i +1;     end;   Writeln ('s=', s, '   p=', p) end.