Обчислення суми чисел які діляться ** 3

Question

Обчислення суми чисел які діляться на 3

Answer 1

var

s,n,i:integer;

begin

write('Введите количество чисел');

readln(n);

s:=0;

for i:=1 to n do

s:=s+i*3;

writeln(s);

end.