Написать программу к следующей задаче:Вводится с клавиатуры число, которое обозначает количество суток. Написать программу расчета количества часов, количества минут и количества секунд по заданному количеству суток. (вывод сделать с комментариями, чтобы было понятно что вы выводите) В паскаль.

сорян за такую сплошь , прост писал в Паскале программу , а потом вставил

можешь сделать чтоб он не сплошь был? А то лень(

program t2; var a: integer;  Begin write ('Введите колличество суток'); read (a);writeln ('Колличество часов ', a*24);writeln ('Колличество минут ',a*24*60);writeln ('Колличество секунд ',a*24*60*60); end.