Program qq; uses crt; var c,h,m:real; begin write('Введите количество секунд '); read(c); m:=c/60; h:=c/3600; writeln('В ',c,' секундах ',m,' минут'); writeln('В ',c,' секундах ',h,' часов'); end.