Напишите программу нахождения часов, минут и секунд в n суток.

Var n, a, h, m, s:integer;

begin

writeln ('Введите кол-во дней') ;

read (n) ;

if n>1 then begin

writeln ('В ', n,' сутках:') ;

writeln (n*24,' часа') ;

writeln (n*24*60,' минут') ;

writeln (n*24*60*60,' секунд')

end;

if n=1 then begin

writeln ('В ', n,' дне') ;

writeln (n*24,' часа') ;

writeln (n*24*60,' минут') ;

writeln (n*24*60*60,' секунд') ;

end;

end.