PaskalABC.
Вводятся числа от 1 до 9 до тех пор, пока не будет введен 0. Всего будет введено не
больше 100 чисел. Посчитать количество единиц в этой последовательности, количество двоек,
количество троек и так далее (должно выводиться всегда 9 чисел).

Uses System;Var in, out : text;      line, col : integer;      k : integer;begin  Assign(in, "nome.in");  Assign(out, "nomer.out");  Reset(in);  Rewrite(out);  Read(in, line, col, k);  if k < col * line theb  begin   Write(out, (k - 1) div col + 1, ' ', (k - 1) mod col + 1);  end  else    Write(out, "слишком большое число")  end;  close(in);   close(out); end.