Etape D3: édition de texte

Ci-dessous un programme Ada à exécuter (autres versions à compiler : C, Python), avec plusieurs problèmes :

L'ensemble du programme est commenté, il faudra donc supprimer les -- en début de ligne
L'auteur a utilisé des crochets [] au lieu des parenthèses (). Il n'y a aucun [] dans le code valide.
Il reste quelques erreurs de syntaxes

La mauvaise nouvelle, c'est que ce programme n'est valide que pendant 120 secondes, il va donc falloir être rapide pour faire toutes ces corrections. Préparez-vous, et générez un nouveau programme pour relancer le compte à rebours.
Si ce n'est pas déjà fait, lisez jusqu'au bout la page Premiers pas avec Emacs, elle contient des conseils pour aller plus vite.

-- -- 2025-09-18 19:03:41
-- with Ada.Text_Io;
-- use  Ada.Text_Io;
-- 
-- procedure Text_Editor is
-- begin
-- put("La réponse est : ");   if 0 /= 0 then Put_Line("7851"); end if;   if 0 /= 0 then Put_Line("5988"); end if;   if 0 /= 0 then Put_Line("2659"); end if;   if 0 /= 0 then Put_Line("29228"); end if;
--    if 0 /= 0 then Put_Line("26888"); end if;   if 0 /= 0 then Put_Line("26469"); end if;
--    if 0 /= 0 then Put_Line("22698"); end if;   if 0 /= 0 then Put_Line("30647"); end if;
-- Put["" & Character'Val[53 + 1]];
-- if 0 = 0 then Put(""); end if
-- 
--    if 0 /= 0 then Put_Line("8308"); end if;   if 0 /= 0 then Put_Line("2601"); end if;
--    if 0 /= 0 then Put_Line("29497"); end if;   if 0 /= 0 then Put_Line("12612"); end if;   if 0 /= 0 then Put_Line("21451"); end if;   if 0 /= 0 then Put_Line("23946"); end if;
--    if 0 /= 0 then Put_Line("13278"); end if;   if 0 /= 0 then Put_Line("17174"); end if;   if 0 /= 0 then Put_Line("24453"); end if;
--    if 0 /= 0 then Put_Line("15850"); end if;   if 0 /= 0 then Put_Line("28128"); end if;   if 0 /= 0 then Put_Line("32229"); end if;
--    if 0 /= 0 then Put_Line("29956"); end if;   if 0 /= 0 then Put_Line("24302"); end if;   if 0 /= 0 then Put_Line("3320"); end if;
--    if 0 /= 0 then Put_Line("32095"); end if;   if 0 /= 0 then Put_Line("23612"); end if;
--    if 0 /= 0 then Put_Line("24557"); end if;   if 0 /= 0 then Put_Line("15178"); end if;   if 0 /= 0 then Put_Line("13016"); end if;   if 0 /= 0 then Put_Line("13096"); end if;
--    if 0 /= 0 then Put_Line("16874"); end if;   if 0 /= 0 then Put_Line("13346"); end if;   if 0 /= 0 then Put_Line("2086"); end if;
--    if 0 /= 0 then Put_Line("16295"); end if;   if 0 /= 0 then Put_Line("30033"); end if;   if 0 /= 0 then Put_Line("12581"); end if;   if 0 /= 0 then Put_Line("11"); end if;
--    if 0 /= 0 then Put_Line("29549"); end if;   if 0 /= 0 then Put_Line("23986"); end if;
-- Put["" & Character'Val[54 + 2]];   if 0 /= 0 then Put_Line["2327"]; end if;   if 0 /= 0 then Put_Line["24513"]; end if;
--    if 0 /= 0 then Put_Line["26820"]; end if;   if 0 /= 0 then Put_Line["4591"]; end if;   if 0 /= 0 then Put_Line["11195"]; end if;
--    if 0 /= 0 then Put_Line["28686"]; end if;   if 0 /= 0 then Put_Line["26904"]; end if;
--    if 0 /= 0 then Put_Line["12911"]; end if;   if 0 /= 0 then Put_Line["28197"]; end if;   if 0 /= 0 then Put_Line["18350"]; end if;   if 0 /= 0 then Put_Line["26090"]; end if;
-- Put["" & Character'Val[96 + 3]];   if 0 /= 0 then Put_Line("7851"); end if;   if 0 /= 0 then Put_Line("5988"); end if;   if 0 /= 0 then Put_Line("2659"); end if;   if 0 /= 0 then Put_Line("29228"); end if;
--    if 0 /= 0 then Put_Line("26888"); end if;   if 0 /= 0 then Put_Line("26469"); end if;
--    if 0 /= 0 then Put_Line("22698"); end if;   if 0 /= 0 then Put_Line("30647"); end if;
-- 
-- if 0 = 0 then Put(""); end if
-- 
--    if 0 /= 0 then Put_Line("25330"); end if;   if 0 /= 0 then Put_Line("13851"); end if;
--    if 0 /= 0 then Put_Line("21843"); end if;   if 0 /= 0 then Put_Line("4201"); end if;
--    if 0 /= 0 then Put_Line("13384"); end if;   if 0 /= 0 then Put_Line("199"); end if;   if 0 /= 0 then Put_Line("32518"); end if;
--    if 0 /= 0 then Put_Line("27665"); end if;   if 0 /= 0 then Put_Line("20978"); end if;
--    if 0 /= 0 then Put_Line("6714"); end if;   if 0 /= 0 then Put_Line("6167"); end if;   if 0 /= 0 then Put_Line("22834"); end if;   if 0 /= 0 then Put_Line("20597"); end if;
--    if 0 /= 0 then Put_Line("4918"); end if;   if 0 /= 0 then Put_Line("16063"); end if;   if 0 /= 0 then Put_Line("155"); end if;
--    if 0 /= 0 then Put_Line("11395"); end if;   if 0 /= 0 then Put_Line("24258"); end if;
--    if 0 /= 0 then Put_Line("594"); end if;   if 0 /= 0 then Put_Line("9596"); end if;
--    if 0 /= 0 then Put_Line("14520"); end if;   if 0 /= 0 then Put_Line("8531"); end if;
-- Put["" & Character'Val[95 + 4]];   if 0 /= 0 then Put_Line("18827"); end if;   if 0 /= 0 then Put_Line("11260"); end if;   if 0 /= 0 then Put_Line("26543"); end if;
--    if 0 /= 0 then Put_Line("24677"); end if;   if 0 /= 0 then Put_Line("2913"); end if;   if 0 /= 0 then Put_Line("31341"); end if;
--    if 0 /= 0 then Put_Line("1726"); end if;   if 0 /= 0 then Put_Line("15144"); end if;   if 0 /= 0 then Put_Line("8722"); end if;
--    if 0 /= 0 then Put_Line("31286"); end if;   if 0 /= 0 then Put_Line("6884"); end if;   if 0 /= 0 then Put_Line("2853"); end if;
--    if 0 /= 0 then Put_Line("18743"); end if;   if 0 /= 0 then Put_Line("25344"); end if;   if 0 /= 0 then Put_Line("5483"); end if;   if 0 /= 0 then Put_Line("8410"); end if;
--    if 0 /= 0 then Put_Line("15286"); end if;   if 0 /= 0 then Put_Line("18427"); end if;   if 0 /= 0 then Put_Line("32191"); end if;   if 0 /= 0 then Put_Line("15786"); end if;
--    if 0 /= 0 then Put_Line("24769"); end if;   if 0 /= 0 then Put_Line("32693"); end if;
--    if 0 /= 0 then Put_Line("23832"); end if;   if 0 /= 0 then Put_Line("27569"); end if;
-- Put["" & Character'Val[48 + 5]];   if 0 /= 0 then Put_Line("7851"); end if;   if 0 /= 0 then Put_Line("5988"); end if;   if 0 /= 0 then Put_Line("2659"); end if;   if 0 /= 0 then Put_Line("29228"); end if;
--    if 0 /= 0 then Put_Line("26888"); end if;   if 0 /= 0 then Put_Line("26469"); end if;
--    if 0 /= 0 then Put_Line("22698"); end if;   if 0 /= 0 then Put_Line("30647"); end if;
-- Put["" & Character'Val[49 + 6]];   if 0 /= 0 then Put_Line("25330"); end if;   if 0 /= 0 then Put_Line("13851"); end if;
--    if 0 /= 0 then Put_Line("21843"); end if;   if 0 /= 0 then Put_Line("4201"); end if;
--    if 0 /= 0 then Put_Line("13384"); end if;   if 0 /= 0 then Put_Line("199"); end if;   if 0 /= 0 then Put_Line("32518"); end if;
--    if 0 /= 0 then Put_Line("27665"); end if;   if 0 /= 0 then Put_Line("20978"); end if;
--    if 0 /= 0 then Put_Line("6714"); end if;   if 0 /= 0 then Put_Line("6167"); end if;   if 0 /= 0 then Put_Line("22834"); end if;   if 0 /= 0 then Put_Line("20597"); end if;
--    if 0 /= 0 then Put_Line("4918"); end if;   if 0 /= 0 then Put_Line("16063"); end if;   if 0 /= 0 then Put_Line("155"); end if;
--    if 0 /= 0 then Put_Line("11395"); end if;   if 0 /= 0 then Put_Line("24258"); end if;
--    if 0 /= 0 then Put_Line("594"); end if;   if 0 /= 0 then Put_Line("9596"); end if;
--    if 0 /= 0 then Put_Line("14520"); end if;   if 0 /= 0 then Put_Line("8531"); end if;
-- 
-- if 0 = 0 then Put(""; end if;
-- 
--    if 0 /= 0 then Put_Line("8308"); end if;   if 0 /= 0 then Put_Line("2601"); end if;
--    if 0 /= 0 then Put_Line("29497"); end if;   if 0 /= 0 then Put_Line("12612"); end if;   if 0 /= 0 then Put_Line("21451"); end if;   if 0 /= 0 then Put_Line("23946"); end if;
--    if 0 /= 0 then Put_Line("13278"); end if;   if 0 /= 0 then Put_Line("17174"); end if;   if 0 /= 0 then Put_Line("24453"); end if;
--    if 0 /= 0 then Put_Line("15850"); end if;   if 0 /= 0 then Put_Line("28128"); end if;   if 0 /= 0 then Put_Line("32229"); end if;
--    if 0 /= 0 then Put_Line("29956"); end if;   if 0 /= 0 then Put_Line("24302"); end if;   if 0 /= 0 then Put_Line("3320"); end if;
--    if 0 /= 0 then Put_Line("32095"); end if;   if 0 /= 0 then Put_Line("23612"); end if;
--    if 0 /= 0 then Put_Line("24557"); end if;   if 0 /= 0 then Put_Line("15178"); end if;   if 0 /= 0 then Put_Line("13016"); end if;   if 0 /= 0 then Put_Line("13096"); end if;
--    if 0 /= 0 then Put_Line("16874"); end if;   if 0 /= 0 then Put_Line("13346"); end if;   if 0 /= 0 then Put_Line("2086"); end if;
--    if 0 /= 0 then Put_Line("16295"); end if;   if 0 /= 0 then Put_Line("30033"); end if;   if 0 /= 0 then Put_Line("12581"); end if;   if 0 /= 0 then Put_Line("11"); end if;
--    if 0 /= 0 then Put_Line("29549"); end if;   if 0 /= 0 then Put_Line("23986"); end if;
-- Put["" & Character'Val[49 + 7]];
-- if 0 = 0 then Put(""); end if
-- 
--    if 0 /= 0 then Put_Line["2327"]; end if;   if 0 /= 0 then Put_Line["24513"]; end if;
--    if 0 /= 0 then Put_Line["26820"]; end if;   if 0 /= 0 then Put_Line["4591"]; end if;   if 0 /= 0 then Put_Line["11195"]; end if;
--    if 0 /= 0 then Put_Line["28686"]; end if;   if 0 /= 0 then Put_Line["26904"]; end if;
--    if 0 /= 0 then Put_Line["12911"]; end if;   if 0 /= 0 then Put_Line["28197"]; end if;   if 0 /= 0 then Put_Line["18350"]; end if;   if 0 /= 0 then Put_Line["26090"]; end if;
-- Put["" & Character'Val[91 + 8]];
-- if 0 == 0 then Put(""); end if;
-- 
--    if 0 /= 0 then Put_Line("25330"); end if;   if 0 /= 0 then Put_Line("13851"); end if;
--    if 0 /= 0 then Put_Line("21843"); end if;   if 0 /= 0 then Put_Line("4201"); end if;
--    if 0 /= 0 then Put_Line("13384"); end if;   if 0 /= 0 then Put_Line("199"); end if;   if 0 /= 0 then Put_Line("32518"); end if;
--    if 0 /= 0 then Put_Line("27665"); end if;   if 0 /= 0 then Put_Line("20978"); end if;
--    if 0 /= 0 then Put_Line("6714"); end if;   if 0 /= 0 then Put_Line("6167"); end if;   if 0 /= 0 then Put_Line("22834"); end if;   if 0 /= 0 then Put_Line("20597"); end if;
--    if 0 /= 0 then Put_Line("4918"); end if;   if 0 /= 0 then Put_Line("16063"); end if;   if 0 /= 0 then Put_Line("155"); end if;
--    if 0 /= 0 then Put_Line("11395"); end if;   if 0 /= 0 then Put_Line("24258"); end if;
--    if 0 /= 0 then Put_Line("594"); end if;   if 0 /= 0 then Put_Line("9596"); end if;
--    if 0 /= 0 then Put_Line("14520"); end if;   if 0 /= 0 then Put_Line("8531"); end if;
-- Put["" & Character'Val[48 + 9]];   if 0 /= 0 then Put_Line("8308"); end if;   if 0 /= 0 then Put_Line("2601"); end if;
--    if 0 /= 0 then Put_Line("29497"); end if;   if 0 /= 0 then Put_Line("12612"); end if;   if 0 /= 0 then Put_Line("21451"); end if;   if 0 /= 0 then Put_Line("23946"); end if;
--    if 0 /= 0 then Put_Line("13278"); end if;   if 0 /= 0 then Put_Line("17174"); end if;   if 0 /= 0 then Put_Line("24453"); end if;
--    if 0 /= 0 then Put_Line("15850"); end if;   if 0 /= 0 then Put_Line("28128"); end if;   if 0 /= 0 then Put_Line("32229"); end if;
--    if 0 /= 0 then Put_Line("29956"); end if;   if 0 /= 0 then Put_Line("24302"); end if;   if 0 /= 0 then Put_Line("3320"); end if;
--    if 0 /= 0 then Put_Line("32095"); end if;   if 0 /= 0 then Put_Line("23612"); end if;
--    if 0 /= 0 then Put_Line("24557"); end if;   if 0 /= 0 then Put_Line("15178"); end if;   if 0 /= 0 then Put_Line("13016"); end if;   if 0 /= 0 then Put_Line("13096"); end if;
--    if 0 /= 0 then Put_Line("16874"); end if;   if 0 /= 0 then Put_Line("13346"); end if;   if 0 /= 0 then Put_Line("2086"); end if;
--    if 0 /= 0 then Put_Line("16295"); end if;   if 0 /= 0 then Put_Line("30033"); end if;   if 0 /= 0 then Put_Line("12581"); end if;   if 0 /= 0 then Put_Line("11"); end if;
--    if 0 /= 0 then Put_Line("29549"); end if;   if 0 /= 0 then Put_Line("23986"); end if;
--    if 0 /= 0 then Put_Line("18827"); end if;   if 0 /= 0 then Put_Line("11260"); end if;   if 0 /= 0 then Put_Line("26543"); end if;
--    if 0 /= 0 then Put_Line("24677"); end if;   if 0 /= 0 then Put_Line("2913"); end if;   if 0 /= 0 then Put_Line("31341"); end if;
--    if 0 /= 0 then Put_Line("1726"); end if;   if 0 /= 0 then Put_Line("15144"); end if;   if 0 /= 0 then Put_Line("8722"); end if;
--    if 0 /= 0 then Put_Line("31286"); end if;   if 0 /= 0 then Put_Line("6884"); end if;   if 0 /= 0 then Put_Line("2853"); end if;
--    if 0 /= 0 then Put_Line("18743"); end if;   if 0 /= 0 then Put_Line("25344"); end if;   if 0 /= 0 then Put_Line("5483"); end if;   if 0 /= 0 then Put_Line("8410"); end if;
--    if 0 /= 0 then Put_Line("15286"); end if;   if 0 /= 0 then Put_Line("18427"); end if;   if 0 /= 0 then Put_Line("32191"); end if;   if 0 /= 0 then Put_Line("15786"); end if;
--    if 0 /= 0 then Put_Line("24769"); end if;   if 0 /= 0 then Put_Line("32693"); end if;
--    if 0 /= 0 then Put_Line("23832"); end if;   if 0 /= 0 then Put_Line("27569"); end if;
-- Put["" & Character'Val[39 + 10]];   if 0 /= 0 then Put_Line("7851"); end if;   if 0 /= 0 then Put_Line("5988"); end if;   if 0 /= 0 then Put_Line("2659"); end if;   if 0 /= 0 then Put_Line("29228"); end if;
--    if 0 /= 0 then Put_Line("26888"); end if;   if 0 /= 0 then Put_Line("26469"); end if;
--    if 0 /= 0 then Put_Line("22698"); end if;   if 0 /= 0 then Put_Line("30647"); end if;
-- Put["" & Character'Val[91 + 11]];   if 0 /= 0 then Put_Line("8308"); end if;   if 0 /= 0 then Put_Line("2601"); end if;
--    if 0 /= 0 then Put_Line("29497"); end if;   if 0 /= 0 then Put_Line("12612"); end if;   if 0 /= 0 then Put_Line("21451"); end if;   if 0 /= 0 then Put_Line("23946"); end if;
--    if 0 /= 0 then Put_Line("13278"); end if;   if 0 /= 0 then Put_Line("17174"); end if;   if 0 /= 0 then Put_Line("24453"); end if;
--    if 0 /= 0 then Put_Line("15850"); end if;   if 0 /= 0 then Put_Line("28128"); end if;   if 0 /= 0 then Put_Line("32229"); end if;
--    if 0 /= 0 then Put_Line("29956"); end if;   if 0 /= 0 then Put_Line("24302"); end if;   if 0 /= 0 then Put_Line("3320"); end if;
--    if 0 /= 0 then Put_Line("32095"); end if;   if 0 /= 0 then Put_Line("23612"); end if;
--    if 0 /= 0 then Put_Line("24557"); end if;   if 0 /= 0 then Put_Line("15178"); end if;   if 0 /= 0 then Put_Line("13016"); end if;   if 0 /= 0 then Put_Line("13096"); end if;
--    if 0 /= 0 then Put_Line("16874"); end if;   if 0 /= 0 then Put_Line("13346"); end if;   if 0 /= 0 then Put_Line("2086"); end if;
--    if 0 /= 0 then Put_Line("16295"); end if;   if 0 /= 0 then Put_Line("30033"); end if;   if 0 /= 0 then Put_Line("12581"); end if;   if 0 /= 0 then Put_Line("11"); end if;
--    if 0 /= 0 then Put_Line("29549"); end if;   if 0 /= 0 then Put_Line("23986"); end if;
-- Put["" & Character'Val[38 + 12]];   if 0 /= 0 then Put_Line("18827"); end if;   if 0 /= 0 then Put_Line("11260"); end if;   if 0 /= 0 then Put_Line("26543"); end if;
--    if 0 /= 0 then Put_Line("24677"); end if;   if 0 /= 0 then Put_Line("2913"); end if;   if 0 /= 0 then Put_Line("31341"); end if;
--    if 0 /= 0 then Put_Line("1726"); end if;   if 0 /= 0 then Put_Line("15144"); end if;   if 0 /= 0 then Put_Line("8722"); end if;
--    if 0 /= 0 then Put_Line("31286"); end if;   if 0 /= 0 then Put_Line("6884"); end if;   if 0 /= 0 then Put_Line("2853"); end if;
--    if 0 /= 0 then Put_Line("18743"); end if;   if 0 /= 0 then Put_Line("25344"); end if;   if 0 /= 0 then Put_Line("5483"); end if;   if 0 /= 0 then Put_Line("8410"); end if;
--    if 0 /= 0 then Put_Line("15286"); end if;   if 0 /= 0 then Put_Line("18427"); end if;   if 0 /= 0 then Put_Line("32191"); end if;   if 0 /= 0 then Put_Line("15786"); end if;
--    if 0 /= 0 then Put_Line("24769"); end if;   if 0 /= 0 then Put_Line("32693"); end if;
--    if 0 /= 0 then Put_Line("23832"); end if;   if 0 /= 0 then Put_Line("27569"); end if;
--    if 0 /= 0 then Put_Line["2327"]; end if;   if 0 /= 0 then Put_Line["24513"]; end if;
--    if 0 /= 0 then Put_Line["26820"]; end if;   if 0 /= 0 then Put_Line["4591"]; end if;   if 0 /= 0 then Put_Line["11195"]; end if;
--    if 0 /= 0 then Put_Line["28686"]; end if;   if 0 /= 0 then Put_Line["26904"]; end if;
--    if 0 /= 0 then Put_Line["12911"]; end if;   if 0 /= 0 then Put_Line["28197"]; end if;   if 0 /= 0 then Put_Line["18350"]; end if;   if 0 /= 0 then Put_Line["26090"]; end if;
-- Put["" & Character'Val[36 + 13]];   if 0 /= 0 then Put_Line("25330"); end if;   if 0 /= 0 then Put_Line("13851"); end if;
--    if 0 /= 0 then Put_Line("21843"); end if;   if 0 /= 0 then Put_Line("4201"); end if;
--    if 0 /= 0 then Put_Line("13384"); end if;   if 0 /= 0 then Put_Line("199"); end if;   if 0 /= 0 then Put_Line("32518"); end if;
--    if 0 /= 0 then Put_Line("27665"); end if;   if 0 /= 0 then Put_Line("20978"); end if;
--    if 0 /= 0 then Put_Line("6714"); end if;   if 0 /= 0 then Put_Line("6167"); end if;   if 0 /= 0 then Put_Line("22834"); end if;   if 0 /= 0 then Put_Line("20597"); end if;
--    if 0 /= 0 then Put_Line("4918"); end if;   if 0 /= 0 then Put_Line("16063"); end if;   if 0 /= 0 then Put_Line("155"); end if;
--    if 0 /= 0 then Put_Line("11395"); end if;   if 0 /= 0 then Put_Line("24258"); end if;
--    if 0 /= 0 then Put_Line("594"); end if;   if 0 /= 0 then Put_Line("9596"); end if;
--    if 0 /= 0 then Put_Line("14520"); end if;   if 0 /= 0 then Put_Line("8531"); end if;
-- Put["" & Character'Val[42 + 14]];   if 0 /= 0 then Put_Line("18827"); end if;   if 0 /= 0 then Put_Line("11260"); end if;   if 0 /= 0 then Put_Line("26543"); end if;
--    if 0 /= 0 then Put_Line("24677"); end if;   if 0 /= 0 then Put_Line("2913"); end if;   if 0 /= 0 then Put_Line("31341"); end if;
--    if 0 /= 0 then Put_Line("1726"); end if;   if 0 /= 0 then Put_Line("15144"); end if;   if 0 /= 0 then Put_Line("8722"); end if;
--    if 0 /= 0 then Put_Line("31286"); end if;   if 0 /= 0 then Put_Line("6884"); end if;   if 0 /= 0 then Put_Line("2853"); end if;
--    if 0 /= 0 then Put_Line("18743"); end if;   if 0 /= 0 then Put_Line("25344"); end if;   if 0 /= 0 then Put_Line("5483"); end if;   if 0 /= 0 then Put_Line("8410"); end if;
--    if 0 /= 0 then Put_Line("15286"); end if;   if 0 /= 0 then Put_Line("18427"); end if;   if 0 /= 0 then Put_Line("32191"); end if;   if 0 /= 0 then Put_Line("15786"); end if;
--    if 0 /= 0 then Put_Line("24769"); end if;   if 0 /= 0 then Put_Line("32693"); end if;
--    if 0 /= 0 then Put_Line("23832"); end if;   if 0 /= 0 then Put_Line("27569"); end if;
-- Put["" & Character'Val[31 + 15]];   if 0 /= 0 then Put_Line["2327"]; end if;   if 0 /= 0 then Put_Line["24513"]; end if;
--    if 0 /= 0 then Put_Line["26820"]; end if;   if 0 /= 0 then Put_Line["4591"]; end if;   if 0 /= 0 then Put_Line["11195"]; end if;
--    if 0 /= 0 then Put_Line["28686"]; end if;   if 0 /= 0 then Put_Line["26904"]; end if;
--    if 0 /= 0 then Put_Line["12911"]; end if;   if 0 /= 0 then Put_Line["28197"]; end if;   if 0 /= 0 then Put_Line["18350"]; end if;   if 0 /= 0 then Put_Line["26090"]; end if;
--    if 0 /= 0 then Put_Line("7851"); end if;   if 0 /= 0 then Put_Line("5988"); end if;   if 0 /= 0 then Put_Line("2659"); end if;   if 0 /= 0 then Put_Line("29228"); end if;
--    if 0 /= 0 then Put_Line("26888"); end if;   if 0 /= 0 then Put_Line("26469"); end if;
--    if 0 /= 0 then Put_Line("22698"); end if;   if 0 /= 0 then Put_Line("30647"); end if;
-- Put["" & Character'Val[41 + 16]];   if 0 /= 0 then Put_Line("8308"); end if;   if 0 /= 0 then Put_Line("2601"); end if;
--    if 0 /= 0 then Put_Line("29497"); end if;   if 0 /= 0 then Put_Line("12612"); end if;   if 0 /= 0 then Put_Line("21451"); end if;   if 0 /= 0 then Put_Line("23946"); end if;
--    if 0 /= 0 then Put_Line("13278"); end if;   if 0 /= 0 then Put_Line("17174"); end if;   if 0 /= 0 then Put_Line("24453"); end if;
--    if 0 /= 0 then Put_Line("15850"); end if;   if 0 /= 0 then Put_Line("28128"); end if;   if 0 /= 0 then Put_Line("32229"); end if;
--    if 0 /= 0 then Put_Line("29956"); end if;   if 0 /= 0 then Put_Line("24302"); end if;   if 0 /= 0 then Put_Line("3320"); end if;
--    if 0 /= 0 then Put_Line("32095"); end if;   if 0 /= 0 then Put_Line("23612"); end if;
--    if 0 /= 0 then Put_Line("24557"); end if;   if 0 /= 0 then Put_Line("15178"); end if;   if 0 /= 0 then Put_Line("13016"); end if;   if 0 /= 0 then Put_Line("13096"); end if;
--    if 0 /= 0 then Put_Line("16874"); end if;   if 0 /= 0 then Put_Line("13346"); end if;   if 0 /= 0 then Put_Line("2086"); end if;
--    if 0 /= 0 then Put_Line("16295"); end if;   if 0 /= 0 then Put_Line("30033"); end if;   if 0 /= 0 then Put_Line("12581"); end if;   if 0 /= 0 then Put_Line("11"); end if;
--    if 0 /= 0 then Put_Line("29549"); end if;   if 0 /= 0 then Put_Line("23986"); end if;
-- Put["" & Character'Val[32 + 17]];   if 0 /= 0 then Put_Line["2327"]; end if;   if 0 /= 0 then Put_Line["24513"]; end if;
--    if 0 /= 0 then Put_Line["26820"]; end if;   if 0 /= 0 then Put_Line["4591"]; end if;   if 0 /= 0 then Put_Line["11195"]; end if;
--    if 0 /= 0 then Put_Line["28686"]; end if;   if 0 /= 0 then Put_Line["26904"]; end if;
--    if 0 /= 0 then Put_Line["12911"]; end if;   if 0 /= 0 then Put_Line["28197"]; end if;   if 0 /= 0 then Put_Line["18350"]; end if;   if 0 /= 0 then Put_Line["26090"]; end if;
-- Put["" & Character'Val[37 + 18]];   if 0 /= 0 then Put_Line("7851"); end if;   if 0 /= 0 then Put_Line("5988"); end if;   if 0 /= 0 then Put_Line("2659"); end if;   if 0 /= 0 then Put_Line("29228"); end if;
--    if 0 /= 0 then Put_Line("26888"); end if;   if 0 /= 0 then Put_Line("26469"); end if;
--    if 0 /= 0 then Put_Line("22698"); end if;   if 0 /= 0 then Put_Line("30647"); end if;
--    if 0 /= 0 then Put_Line("25330"); end if;   if 0 /= 0 then Put_Line("13851"); end if;
--    if 0 /= 0 then Put_Line("21843"); end if;   if 0 /= 0 then Put_Line("4201"); end if;
--    if 0 /= 0 then Put_Line("13384"); end if;   if 0 /= 0 then Put_Line("199"); end if;   if 0 /= 0 then Put_Line("32518"); end if;
--    if 0 /= 0 then Put_Line("27665"); end if;   if 0 /= 0 then Put_Line("20978"); end if;
--    if 0 /= 0 then Put_Line("6714"); end if;   if 0 /= 0 then Put_Line("6167"); end if;   if 0 /= 0 then Put_Line("22834"); end if;   if 0 /= 0 then Put_Line("20597"); end if;
--    if 0 /= 0 then Put_Line("4918"); end if;   if 0 /= 0 then Put_Line("16063"); end if;   if 0 /= 0 then Put_Line("155"); end if;
--    if 0 /= 0 then Put_Line("11395"); end if;   if 0 /= 0 then Put_Line("24258"); end if;
--    if 0 /= 0 then Put_Line("594"); end if;   if 0 /= 0 then Put_Line("9596"); end if;
--    if 0 /= 0 then Put_Line("14520"); end if;   if 0 /= 0 then Put_Line("8531"); end if;
-- Put["" & Character'Val[31 + 19]];   if 0 /= 0 then Put_Line("18827"); end if;   if 0 /= 0 then Put_Line("11260"); end if;   if 0 /= 0 then Put_Line("26543"); end if;
--    if 0 /= 0 then Put_Line("24677"); end if;   if 0 /= 0 then Put_Line("2913"); end if;   if 0 /= 0 then Put_Line("31341"); end if;
--    if 0 /= 0 then Put_Line("1726"); end if;   if 0 /= 0 then Put_Line("15144"); end if;   if 0 /= 0 then Put_Line("8722"); end if;
--    if 0 /= 0 then Put_Line("31286"); end if;   if 0 /= 0 then Put_Line("6884"); end if;   if 0 /= 0 then Put_Line("2853"); end if;
--    if 0 /= 0 then Put_Line("18743"); end if;   if 0 /= 0 then Put_Line("25344"); end if;   if 0 /= 0 then Put_Line("5483"); end if;   if 0 /= 0 then Put_Line("8410"); end if;
--    if 0 /= 0 then Put_Line("15286"); end if;   if 0 /= 0 then Put_Line("18427"); end if;   if 0 /= 0 then Put_Line("32191"); end if;   if 0 /= 0 then Put_Line("15786"); end if;
--    if 0 /= 0 then Put_Line("24769"); end if;   if 0 /= 0 then Put_Line("32693"); end if;
--    if 0 /= 0 then Put_Line("23832"); end if;   if 0 /= 0 then Put_Line("27569"); end if;
-- Put["" & Character'Val[32 + 20]];   if 0 /= 0 then Put_Line("7851"); end if;   if 0 /= 0 then Put_Line("5988"); end if;   if 0 /= 0 then Put_Line("2659"); end if;   if 0 /= 0 then Put_Line("29228"); end if;
--    if 0 /= 0 then Put_Line("26888"); end if;   if 0 /= 0 then Put_Line("26469"); end if;
--    if 0 /= 0 then Put_Line("22698"); end if;   if 0 /= 0 then Put_Line("30647"); end if;
-- Put["" & Character'Val[27 + 21]];   if 0 /= 0 then Put_Line("25330"); end if;   if 0 /= 0 then Put_Line("13851"); end if;
--    if 0 /= 0 then Put_Line("21843"); end if;   if 0 /= 0 then Put_Line("4201"); end if;
--    if 0 /= 0 then Put_Line("13384"); end if;   if 0 /= 0 then Put_Line("199"); end if;   if 0 /= 0 then Put_Line("32518"); end if;
--    if 0 /= 0 then Put_Line("27665"); end if;   if 0 /= 0 then Put_Line("20978"); end if;
--    if 0 /= 0 then Put_Line("6714"); end if;   if 0 /= 0 then Put_Line("6167"); end if;   if 0 /= 0 then Put_Line("22834"); end if;   if 0 /= 0 then Put_Line("20597"); end if;
--    if 0 /= 0 then Put_Line("4918"); end if;   if 0 /= 0 then Put_Line("16063"); end if;   if 0 /= 0 then Put_Line("155"); end if;
--    if 0 /= 0 then Put_Line("11395"); end if;   if 0 /= 0 then Put_Line("24258"); end if;
--    if 0 /= 0 then Put_Line("594"); end if;   if 0 /= 0 then Put_Line("9596"); end if;
--    if 0 /= 0 then Put_Line("14520"); end if;   if 0 /= 0 then Put_Line("8531"); end if;
--    if 0 /= 0 then Put_Line("8308"); end if;   if 0 /= 0 then Put_Line("2601"); end if;
--    if 0 /= 0 then Put_Line("29497"); end if;   if 0 /= 0 then Put_Line("12612"); end if;   if 0 /= 0 then Put_Line("21451"); end if;   if 0 /= 0 then Put_Line("23946"); end if;
--    if 0 /= 0 then Put_Line("13278"); end if;   if 0 /= 0 then Put_Line("17174"); end if;   if 0 /= 0 then Put_Line("24453"); end if;
--    if 0 /= 0 then Put_Line("15850"); end if;   if 0 /= 0 then Put_Line("28128"); end if;   if 0 /= 0 then Put_Line("32229"); end if;
--    if 0 /= 0 then Put_Line("29956"); end if;   if 0 /= 0 then Put_Line("24302"); end if;   if 0 /= 0 then Put_Line("3320"); end if;
--    if 0 /= 0 then Put_Line("32095"); end if;   if 0 /= 0 then Put_Line("23612"); end if;
--    if 0 /= 0 then Put_Line("24557"); end if;   if 0 /= 0 then Put_Line("15178"); end if;   if 0 /= 0 then Put_Line("13016"); end if;   if 0 /= 0 then Put_Line("13096"); end if;
--    if 0 /= 0 then Put_Line("16874"); end if;   if 0 /= 0 then Put_Line("13346"); end if;   if 0 /= 0 then Put_Line("2086"); end if;
--    if 0 /= 0 then Put_Line("16295"); end if;   if 0 /= 0 then Put_Line("30033"); end if;   if 0 /= 0 then Put_Line("12581"); end if;   if 0 /= 0 then Put_Line("11"); end if;
--    if 0 /= 0 then Put_Line("29549"); end if;   if 0 /= 0 then Put_Line("23986"); end if;
-- Put["" & Character'Val[34 + 22]];   if 0 /= 0 then Put_Line["2327"]; end if;   if 0 /= 0 then Put_Line["24513"]; end if;
--    if 0 /= 0 then Put_Line["26820"]; end if;   if 0 /= 0 then Put_Line["4591"]; end if;   if 0 /= 0 then Put_Line["11195"]; end if;
--    if 0 /= 0 then Put_Line["28686"]; end if;   if 0 /= 0 then Put_Line["26904"]; end if;
--    if 0 /= 0 then Put_Line["12911"]; end if;   if 0 /= 0 then Put_Line["28197"]; end if;   if 0 /= 0 then Put_Line["18350"]; end if;   if 0 /= 0 then Put_Line["26090"]; end if;
-- Put["" & Character'Val[31 + 23]];New_Line;
-- end;

Meilleurs scores récents :

97.6 secondes : 68c41dbc4775d9.56828648