Русаков Никита 10Б

begin
var stroka,vsegostrok,intstroka:real;
write('Введи количество строк на одной странице:');
readln(vsegostrok);
write('Введи строчку , которую хочешь найти:');
readln(stroka);
stroka:=stroka/vsegostrok;
intstroka:=int(stroka);
if stroka>intstroka then
  begin
  intstroka:=intstroka+1;
  end;
write('Строка, которую ты ищешь находиться на странице с номером:');
write(intstroka);
end.