Задание

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

var k, s: integer;

begin

s:=0;

k:=0;

while k < 12 do begin

s:=s+2*k;

k:=k+3;

end;

write(s);

end.