Напишите прогу, где осуществляется ввод целых чисел,

program qq; var a,pol,otr: integer; beginpol: =0; otr: =0; repeat beginwriteln ('Введите число'); read (a); if a>0 then pol: =pol+1else otr: =otr+1; end; until a=0; writeln ('Положительных чисел — ',pol); writeln ('Отрицательных чисел — ',otr); end.