Как Найти сумму естественных чисел от 1 до n кратных 3.На

PascalABC.NET 3.4.2, сборка 1837 от 11.10.2018

Внимание! Если программка не работает, обновите версию!

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 ilt;=n do

   begin

     sum:=sum+i;

     i:=i+3;

   end;  

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

end.