Сделать программу в паскале. складіть программу за якою числа вводятся з клавіатури до тих пір, поки конистувач не веде число 0. серед цих чисел підрахувати додатні і від'ємні. робити через while

Var
   A,p,o,n:integer;
Begin
Read(A);
While A<>0 do
   Begin
   if A > 0 then p:=p+1
   else o:=o+1;
   Read(A);
   End;
WriteLn('Количество положительных (>0): ',p);
WriteLn('Количество отрицательных (<0): ',o);
End.

Пример работы программы:

1
2
3
-4
-5
0
Количество положительных (>0): 3
Количество отрицательных (<0): 2