Програмированиие! ПОМОГИТЕ Вводится 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.