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

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