Определить количество положительных и отрицательных чисел в заданных числах а, ь, с, d. с подробным решением

// pascalabc.net 3.3, сборка 1583 от 25.11.2017 // внимание! если программа не работает, обновите версию! begin   var a,b,c,d,kn,kp: real;   read(a,b,c,d);   if a> 0 then kp+=1 else if a< 0 then kn+=1;   if b> 0 then kp+=1 else if b< 0 then kn+=1;   if c> 0 then kp+=1 else if c< 0 then kn+=1;   if d> 0 then kp+=1 else if d< 0 then kn+=1;   writeln('положительных ',kp,', отрицательных ',kn) end. пример 8 -2 0 -4 положительных 1, отрицательных 2 для прочих версий языка паскаль   var   a,b,c,d,kn,kp: real; begin   read(a,b,c,d);   kp: =0; kn: =0;   if a> 0 then kp+=1 else if a< 0 then kn+=1;   if b> 0 then kp+=1 else if b< 0 then kn+=1;   if c> 0 then kp+=1 else if c< 0 then kn+=1;   if d> 0 then kp+=1 else if d< 0 then kn+=1;   writeln('положительных ',kp,', отрицательных ',kn) end.

1+5+9=15

1×5×9=45

(1+5+9)÷3=5