Ответ:
case m / 2 + 1 of // значения в case должно быть целым
Объяснение:
Вот пожалуйста. Сделал на PascalABC.NET
program HelloWorld;var i, x, y, z: integer;begin
i:=1;while i<>0 do begin readln(i); x:=x+i; if i>0 then y:=y+1; if i<0 z:=z+1 end;writeln(x, ';', y-z); end.
Var
x, y: real;
begin
readln(x);
if x <= 0 then y := 0
else y := x;
writeln(y:3:0);
end.
01000100 01110101 01100010 01101001 01101110 01110011 01101011 01100001 01101001 01100001