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

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