Question

Определите, что будет напечатано в результате работы следующего фрагмента программы:
Var k, s: integer; begin s:=0; k:=0; while k<30 do begin k:=k+3; s:=s+k; end; write(s); end.