Якого значення набудуть змінні a, b, s після виконання даної програми?

а.15
б.40
в.25
г.75
д.55

Паскаль.

Сменой знака считается переход от отрицательного к нулю, от нуля к положительному, от отрицательного к положительному и наоборот. По крайней мере в условии не сказано обратное.

program progr1;

var count,i,n,x,znak,znak_old:integer;
begin
write('n-> '); readln(n);
count:=0;
for i:=1 to n do
begin
write(i,'-> '); readln(x);
if x < 0 then znak:=-1;
if x>0 then znak:=1;
if x=0 then znak:=0;
if i < > 1 then
if znak < > znak_old then count:=count+1;
znak_old:=znak;
end;
write('count=',count);
readln;
end.

Var  n, i, sum1, sum2, buf: integer;
begin 
writeln('Введите количество бросков'); 
readln(n); 
sum1 := 0; 
sum2 := 0; 
 i := 0;   
 for i := 1 to n do 
begin   
writeln('Введите значения на кубиках после броска № - ', i, ' на кубике человека по имени А ');   
readln(buf);   
 sum1 := sum1 + buf; 
end;   
 
for i := 1 to n do 
 begin   
writeln('Введите значения на кубиках после броска № - ', i, ' на кубике человека по имени B');   
readln(buf);   
sum2 := sum2 + buf; 
end;   
 if sum1 = sum2 then writeln('Ничья') else  
 if sum1 > sum2 then writeln('Победил человек по имени А')
else     writeln('Победил человек по имени B');  
end. 
Как то так ...