Рассчитайте количество часов,...

Рассчитайте количество часов, которое вы тратите на выполнение домашнего задания в день, если среднее количество предметов в день и среднее время (вминутах), затрачиваемое на подготовку к каждому предмету, запрашивается у пользователя вашей программы

 

Program time;
uses crt;
var
sr_time,sr_subj:integer;
rez:real;
begin
clrscr;
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.