program jeuDeDe;

const

    De = 5;

var

    lanceDe: integer;

begin

    randomize;

    lanceDe:= (random (De) + 1)  + (random (De) + 1);
    if (lanceDe = 7) or (lanceDe = 11) then
        writeln ('Victoire v_o_v')

    else if (lanceDe = 2) or (lanceDe = 3) or (lanceDe = 12) then
        writeln ('Perdu \_o_/')

    else
        begin
            lanceDe:= (random (De) + 1)  + (random (De) + 1);
            if lanceDe = 7 then
                writeln ('Victoire v_o_v')

            else writeln ('Perdu \_o_/');
        end;

    writeln (lanceDe);
    readln;

end.