1.Вивести 12 елементів послідовності:10,13,16...та знайти їх суму.

var i,a,s:integer;begini:=0;a:=10;while(i<>12) do begin  write(a,' ');  s+=a;  a+=3;  i+=1;  end;writeln();writeln(s);end.