program danya;
uses crt;
var x,n,i,y:integer;
begin
clrscr;
write('Введите количество суток: ');
readln(n);
x:=n*24;
y:=x*3600;
i:=x*60;
if (n>0) then
begin
writeln('Количество часов в ',n,' сутках = ',x); 
writeln('Количество минут в ',n,' сутках = ',i);
writeln('Количество секунд в ',n,' сутках = ',y);
end
else
writeln('Неверное значение!');
readln;
end.