11, Определить значение переменной s после выполнения следующих команд. s:=3;

Подскажите плиииззз

K:=0;
For A:=1 to 5 do
Begin
K:=K+A;
Write(K);
End.

после выполнения следующих команд.

Определите значение переменной с после выполнения следующего фрагмента программы
s:=1;i:=1;
while i<5 do
begin
s:=s+i*(i+1);
i:=i+1;
end;

Прошу объяснить решение подобных программ на данном примере

если a<0 то k:=k+1
все
если b<0 то k:=K+1
все
если c≤0 то k:=k+1
все
если d<0 то k:=k+1
иначе k:=k+2
все