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.