S:=0; k:=0;while k<3 doBegink:=k+1;S:=S+k;End:​

s = 0

k = 0

k = 0+1 = 1

s = 0 + 1 = 1

k = 1+1 = 2

s = 1+2 = 3

Считаем всего 2 раза так как k<3, а не k<=3