program my1 ;
var S,H,T,M: real ;
begin
writeln('Введите за сколько прочитывается одна страница (в мин)') ;
readln(H) ;
writeln('Введите сколько страниц в книге') ;
readln(S) ;
M:=H/60 ;
T:=M*S ;
write('За это время будет прочитана книга ' ,T ,'ч') ;
end.