Как найти сумму натуральных чисел от 1 до n кратных 3. на паскаль abc.net

begin

 Range(3,ReadInteger('n='),3).Sum.Println

end.

Program apkar007;

var n,i,sum:integer;

 s:string;

begin

 s:=' -=Alphaeus=- ';

 for i:=1 to 22 do begin write(s[i]); sleep(60) end;

 writeln;

 write('Введите N = ');readln(n);

 sum:=0;i:=3;

 while i<=n do

   begin

     sum:=sum+i;

     i:=i+3;

   end;  

 writeln('Сумма натуральных чисел от 1 до ',n,', кратных 3, равна ',sum);

end.