Системный блок... Самое сокровенное что у нас есть. В нем мы держим большое количество информации, с него мы общаемся с другими людьми, играем в игры, пишем сочинения и многое другое Жизнь его, конечно нелегка, даже очень нелегка... Каждый день мы включаем и работаем на нем, каждый день! С утра до ночи, с ночи до утра! И кого -то иногда, а у кого - то он перетруждается... Да, именно перетруждается. И тогда он отправляется в сервис, а иногда хозяева сами его чинят. И когда он чинится, он опять начинает работать, как окаянный. Не хотел бы я оказаться на его месте. И поэтому, зная про его тяжелую долю, нужно относиться к нему бережно: чистить его ( хотя бы раз в месяц), вовремя заменять термопасту и т.д.
var a:integer;
b:real;
begin
writeln('Введите секунды'); readln(a);
writeln('Секунды = ' ,a);
b := a / 60; // перевод в минуты
if a >= 60 then // если больше 60 секунд выводим минуты
writeln('Минуты = ', b)
else
writeln('Минуты = 0');
if b >= 60 then // если больше 60 минут выводим часы
writeln('Часы = ', b / 60)
else
writeln('Часы = 0');
end.