Ответы и объяснения

2012-01-30T16:08:25+04:00

var

s,n,i:integer;

begin

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

readln(n);

s:=0;

for i:=1 to n do

s:=s+i*3;

writeln(s);

end.