Как решить такую задачу

[AB96]

Здравствуйте! Я решаю следующую задачу в среде Delphi: Преподаватель работает в неделю d дней по m часов ежедневно. Какую зарплату получит преподаватель за месяц, если из m часов m1 час оплачивается по 320 руб. за час, а m2 часа оплачивается по 370 руб. за час. В воскресенье преподаватель не имеет права работать (сделать заставку).

Я, если честно, пока не очень понимаю как реализовать это. У меня возникла такая идея: создать 4 компонента StringGrid (где 1 компонент StringGrid будет представлять 1 неделю месяца). В ячейки, которые обозначают рабочие дни, пользователь может вводить параметры - m1 и m2.

Как думаете, нормальный ли этот подход к решению данной задачи? Или, может, посоветуете решить как-нибудь по-другому?

Заранее спасибо!

[IvaniuS]

Т.к. я великий бывший олимпиадник обьясню, не давая кода, но должно помочь.
Смотрите первое что нужно делать это найти входные данные и выходные, у Вас
Входные это - d (дни <7), m (часы <=24), m1 и m2 (m1+m2=m)
Выходные зарплата за МЕСЯЦ Result.
Вам нужно написать функцию\процедуру\программу не важно что-то, что по этим данным сможет вычислить зарплату.
Т.е. в обычной математике это (утрированно в месяце 4 недели рабочие) т.е.
4*(d*((m1*320)+(m2*370))) вот и все ваше решение, никаких стринггридов и т.п.