Рассчитайте количество часов, которое вы тратите на выполнение домашнего…

Program time; uses crt; varsr_time,sr_subj: integer; rez: real; beginclrscr; writeln ('Vvedite srednee kol-vo predmerov '); read (sr_subj); writeln ('Vvedir srednee kol-vo vremeny na odin predmet (min) '); read (sr_time); rez: =(sr_subj*sr_time) /60; writeln ('Kol-vo chasov na vupolnenie ',rez); readln; end.