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.