Задание

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

var k, s: integer;

begin

s:=2;

k:=2;

while s < 50 do begin

s:=s+k;

k:=k+2;

end;

write(k);

end.