Одна страница книги прочитывается по Н мин, в книге S страниц. За сколько часов книга будет прочитана?

Программа на Паскале нужна

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