Обусловьте, что будет написано в итоге работы последующего фрагмента программки:Var k,

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