Напишите программу нахождения часов, минут и секунд в 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.