Авторлык кукык турлерин жаз

Question

Информатика: Авторлык кукык турлерин жаз​

Ангелюся10 · Answer

Не очень корректно объяснили, но если правильно вас понял:
Program G;
Var n, z, m, p: integer;
Begin
  z:=0;
p:=0;
m:=0;
Writeln('Введите число n. Число 9999 завершает цикл.');
Readln(n);
While n<>9999 do
  Begin
   If n=0 then inc(z);
  else if n>0 then inc(p);
  else inc(m);
Writeln('Введите число');
Readln(n);
  End;
Writeln('Было введено ', z, ' нулей.');
Writeln('Было введено ', p, ' положительных чисел.');
Writeln('Было введено ', m, ' отрицательных чисел.');
Readln;
End.

Авторлык кукык турлерин жаз​