вводим число,признак конца ряда 0 вывести количество положительных и отрицательных чисел пример: 1 5 6 -3 8 -2 0 положительных 4 отрицательных 2 прошу, используйте пожалуйста только repeat until while заранее спасибо

var a,k1,k2:integer;begink1:=0;k2:=0;repeatwrite('a = ');readln(a);if a>0 then k1:=k1+1  else if a<0 then k2:=k2+1;until a=0;writeln('k1 = ',k1,'   k2 = ',k2);end.Пример:a = 1a = 5a = 6a = -3a = 8a = -2a = 0k1 = 4   k2 = 2