ПОМОГИТЕ ПОЖАЛУЙСТА!!!!! напишите программу вычисления суммы чисел кратных 5 из натурального ряда чисел от 1 до n , и произведение чисел кратных к 3 (while)

uses crt;  var n,s1,s2,i:integer;  begin  s1:=0;  s2:=0;    writeln('Введите N');    read(n);    for i:=1 to n do    if (i mod 5=0) then       begin      s1:=s1+i;      end;      inc(i);    for i:=1 to n do    if (i mod 3=0) then      begin      s2:=s2+i;      end;      inc(i);    writeln('Сумма чисел кратных 5= ',s1);    writeln('Сумма чисел кратных 3= ',s2);  end.