Обусловьте, что будет напечатано в итоге работы последующего куска программки: 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.
Если можно, напишите досконально.