Пусть нужно узнать, где будет напечатана строка с номером 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.