Подсчитать количество вводимых положительных и отрицательных чисел. Операцию ввода повторить 12 раз. turbo poscal

Отвечая школьникам на подобные вопросы можно не только позабыть C++, но и выучить паскаль....

var pc, oc, x, i : longint;beginoc := 0; pc := 0;for i := 1 to 12 do beginreadln(x);if (x < 0) then oc := oc + 1else pc := pc + 1;end;writeln('Положительные:'); writeln(pc); writeln('Отрицательные:'); writeln(oc);readln(x);end.P.S. 0 считается положительным в этой программе