В книжке на одной страничке вмещается K строк. Таким образом, на

Пусть необходимо узнать, где будет написана строчка с номером n. Для прошлых (n - 1) строк нужно (n - 1) div k полных страниц и ещё (n - 1) mod k строк на ((n - 1) div k + 1)-ой страничке. n-я строка будет последующей на этой страничке.

var

 n, k, fullPages, restLines: integer;

begin

 write('Номер строчки: ');

 readln(n);

 write('Строк на странице: ');

 readln(k);

 fullPages := (n - 1) div k;

 restLines := (n - 1) mod k;

 writeln('Страничка: ', fullPages + 1, ', строка: ', restLines + 1);

end.