Question

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

Answer 1

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.