program urenNaarDagen; uses wincrt;
var
   uren: integer;
begin
   write('Geef een aantal uren: ');
   read(uren);
   write('Dit is ', uren div 24, ' dagen');
   write(' en ', uren mod 24, ' uren')
end.