var file : int
var out : int

var input : string
var output : string
open : file, "DATA2", get
open : out, "OUT2", put

loop
    exit when eof (file)
    get : file, input
    var hours : int := strint (input (1 .. 2))
    var minutes : int := strint (input (4 .. 5))
    var half : char
    var HH: string
    var MM: string
   
    if (hours > 12) then
        hours := hours - 12
        half := "P"
    elsif (hours = 12) then
        half := "P"
    else
        half := "A"
    end if
   
    if (minutes <10) then
        MM := "0" + intstr(minutes);
    else
        MM := intstr(minutes);
    end if
    HH:= intstr(hours)   
    output := HH + ":" + MM + " " + half + "M"

    put : out, output
end loop

var file : int
var out : int
open : file, "DATA4", get
open : out, "OUT4", put

var MAX : int := 0
var ret : int := 0
var temp : int := 0
var numF : int
var maxSize : int
var files : flexible array 1 .. 0 of int
var bMask : string


function intToBin (n, l : int) : string
    var num : int := n
    var bin : string := ""

    for i : 1 .. l
        bin := intstr (num rem 2) + bin
        num := num div 2
    end for
    result bin
end intToBin


loop
    ret := 0
    exit when eof (file)
    get : file, MAX
    get : file, numF
    new files, 0
    new files, numF
    for i : 1 .. numF
        get : file, files (i)
    end for
    for i : 1 .. 2 ** numF - 1
        bMask := intToBin (i, numF)
        temp := 0
        for j : 1 .. numF
            if bMask (j) = "1" then
                temp := temp + files (j)
            end if
        end for
        if temp <= MAX and temp > ret then
            ret := temp
        end if
    end for
    put : out, ret
end loop