Ответ:
case m / 2 + 1 of // значения в case должно быть целым
Объяснение:
A \ c \ c(ОТРИЦ) \ A<C(Отриц)
0 \ 0 \ 1 \ 0
0 \ 1 \ 0 \ 0
1 \ 0 \ 1 \ 1
1 \ 1 \ 0 \ 0
( 0 или 1 ) или ( 1 или 0) = 1
Так как:
0 или 1 = 1
1 или 0 = 1
1 или 1 = 1
Program n1;
var a,b: integer;
begin
a:=-3;
b:=11;
while a<=4 do
begin
a:=a+2;
b:=b-1;
end;
while b>0 do
begin
b:=b-1;
a:=a+1;
end;
writeln(a);
end.
//скомплировал, компилятор выдал а=12;