Сколько раз будет выполняться цикл и какие значения примут переменные :
а) 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 примет значение: -28

var s,I: Integer;
begin
s:=0;
For I:=1 to 7 do
s:=s-I;
writeln(s);
end.


б) 5 раз будет выполняться цикл For (1,2,3,4,5).
z примет значение: -5

var p,z,I: Integer;
begin
p:=5;
z:=20;
For I:=1 to p do
z:=z-p;
writeln(z);
end.