program MinutosAHoras;
uses crt;

var horas, minutos : integer;
begin
    write ('Ingresa el valor de minutos: ');
    readln (minutos);
    horas := (minutos-minutos mod 60) div 60;
    writeln ('Valor de horas: ', horas);
    writeln;
    write ('Presiona una tecla para terminar . . . ');
    readkey;
end.