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

var

s,n,i:integer;

begin

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

readln(n);

s:=0;

for i:=1 to n do

s:=s+i*3;

writeln(s);

end.