За 45 сек был распечатан текст. подчитать количество страниц в тексте если известно в среднем в странице 50 строк по 75 символов в каждой, скорость печати 8кбит/сек. 1символ-1 байт. округлить ответ до целой части

б)имя существительное

  я тут немного отсебятины добавил, что бы программа не слетала если что-то нерпавильное вводиш))

vara: string; b: integer; beginwriteln ('введите строку'); read (a); if (a='город минск')then writeln ('город минск')elsebeginwriteln ('введите "город минск", 1-продолжить, 0-выйти'); read (b); end; while (b = 1) dobeginwriteln ('введіте строку'); read (a); if (a='город минск')then writeln ('город минск')elsebeginwriteln ('введите "город минск", 1-продолжить, 0-выйти'); read (b); end; end;

end.