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.