Вводится 5 чисел.подсчитать сколько из них целых,положительных,отрицательных и нулей

program chisla;

uses crt;

var p,o,z,c,i: integer;

        n: real;        

begin

    clrscr;

    write('введите числа: ');

    p: =0; z: =0; o: =0; c: =0;  

    for i: =1 to 5 do

            begin

                readln(n);

                if (n=0) then z: =z+1; // нуль не ни положительным ни отрицательным ни целым  

                if ((n mod 2)< > 0) and (n> 0) then p: =p+1;  

                if ((n mod 2)< > 0) and (n< 0) then o: =o+1;  

                if ((n mod 2)=0) and (n> 0) then

                          begin

                                p: =p+1;    

                                c: =c+1;    

                          end;

if ((n mod 2)=0) and (n< 0) then

                          begin

                                o: =o+1;    

                                c: =c+1;    

                        end;

      writeln;

      writeln('положительных чисел: ',p);

      writeln('отрицательных чисел: ',o);

        writeln('целых чисел: ',c);  

        writeln('нулей: ',z);    

    readkey;

end. 

i = 8 бит

k = 32

I = k * i = 32 * 8 = 256 бит

ответ: 256 бит