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.