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

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

begin

s:=2;

k:=2;

while k lt; 50 do begin

s:=s+k;

k:=k+1;

end;

write(s);

end.