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