Помогитеvar k,s: integer; begins: =0k: =0while k <30 do begink: =k+3; s: =s+k; end; write (s); end.

akadem77779707