WhitePineapple

Verified answer

Var
tfh,h,m,c:integer;
begin
writeln('Введите количество суток');
readln(tfh);
writeln('В ',tfh, ' сутках:');
h:=tfh*24;
writeln(h,' часов');
m:=h*60;
writeln(m,' минут');
c:=m*60;
writeln(c,' секунд');
end.