Сколько раз будет выполняться цикл и какие значения примут переменные :
а) s:=0; For I:=1 to 7 do s:=s-I
б)p:=5; z:=20; For I:=1 to p do z:=z-p

Помогите пожалуйста

a) 7 раз будет выполняться цикл For (1,2,3,4,5,6,7),s примет значение: -28var s,I: Integer;begins:=0; For I:=1 to 7 do s:=s-I;writeln(s);end.б) 5 раз будет выполняться цикл For (1,2,3,4,5).z примет значение: -5var p,z,I: Integer;beginp:=5; z:=20; For I:=1 to p do z:=z-p;writeln(z);end.