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