入力日：
週の出力：
。1中：
F = {1：[1,7,12,18,29,35,40,46,57,63,68,74,85,91,96]、2：[2,13,19,24 、30,41,47,52,58,69,75,80,86,97] 3：3,8,14,25,31,36,42,53,59,64,70,81,87 、92、98]、4：[9,15,20,26,37,43,48,54,65,71,76,82,93,99]、5 [4,10,21,27,32 、38,49,55,60,66,77,83,88,94]、6：5,11,16,22,33,39,44,50,61,67,72,78,89,95 ] ,. 7：0,6,17,23,28,34,45,51,56,62,73,79,84,90]}
A = []
の範囲でI（1800,2100）のために：
I IF私== 0.4％100％= 0 :!
a.append（I）
のelif == 0 I 400％：
a.append（I）
を印刷（A）
インディアン= INT（入力（ '年を入力してください。' ））
でない範囲でのwhileアルメニア（1800,2100）：
アルメニア= INT（入力（ '範囲を超えて、1800を入力してください- 2099年の間に：'））
：<=アルメニア<2000 1900 IF
アルメニアインディアン-1900 =
レンジ内I1（1,8）のための：
I2のためにFにおける[I1]：
IF I2 ==インディアン。
I1 = Jの
BREAK
でK用：
IF + K ==インディアン1900：
印刷（STR（インディアン+ 1900）+ 'うるう年である'）
越= INT（INPUT（ '月を入力します。'））
しばらく越ありませんレンジ（1、13）で：
越= INT（入力（ '愚か者、あなたが家族のカレンダーを持っている' + STR（越）+ 'それは再入力してください可能性があり:?'））
のy = {1：1、2：4、 3：4,4：0,5：2,6：5,7：0,8：3,9：6,10：1,11：4,12：6}
Y1 = Y [越]
RI = INT（入力（ '一日を入力してください：'））
しばらくRIない範囲（1,32）内は：
RI = INT（入力（ '馬鹿' + STR（越）+ ' + STR（RI）+「の日にそれを持っている可能性があり' ？入力してください「））
Kのために：
。インディアン== K +および1900（越越== == 1又は2）IF：
J = J. 1-
DATE J = Y1 + RI +
。一方の日付> 7：
= 7-DATE DATEの。
DATE日付= 1-。
DATE == 0 IF：
+ STR（越）+ '月' + STR（RI）+ ' 'の'印刷（STR（インディアン+ 1900）+日は日曜日「）である
ELIFのDATE == 1：
印刷（STR（1900 +アルメニア） '+ + STR（越）+ '月'の+ STR（RI）+ 'の日が月曜日である'）
ELIFのDATE == 2：
プリント（STR（1900 +アルメニア） +' 月'+ STR（RI）+'日は火曜日である'+ STR（越）+'で'）
ELIF日付== 3：
印刷（STR（1900 +アルメニア）+' '+ STR（越）+'ヶ月の+ STR（RI）+ '日水曜日です'）
ELIF日付== 4：
+ STR 'の'印刷（STR（1900 +アルメニア）+（越）+ '月' + STR（RI）+ '日は木曜日です' ）
のelif日付== 5：
印刷+ STR（越）+ '月' 'の'（STR（1900 +アルメニア）+ + STR（RI）+ '日が金曜日である'）
ELIF日付== 6：
印刷（STR（ ）+ + STR（越）+ '月' 'の' + 1900アルメニア+ STR（RI）+ '）日は土曜日である'
アルメニアIFと+ 1900 == == 1993越12とRIの== 5：
印刷（ '今日は誕生日ああブラッキー「）です！
アルメニアIFと+ 1900 1990 == ==越RI == 10と23：
＃塗装ハート型のアークは
デフ）（hart_arc：
Iの範囲内（200）のための：
turtle.right（1）
turtle.forward（2）
move_pen_position DEF（X、Y）：
turtle.hideturtle（）＃隠れブラシ（第一）
turtle.up（）＃ペン
turtle.goto（x、y）が指定された開始座標に＃ブラシ移動（0,0窓中心）
turtle.down（）＃書き込み
turtle.showturtle（）＃ショーのブラシ
愛=「私はあなたを愛し」＃の入力（「 ）：言葉の告白を入力してください、デフォルトでは『あなたによってI愛』で」
署名=「メガ」#input（ ）：「デフォルトでは表示されません記入しないでください、あなたの名前を署名してください」
==愛するならば「：」
「あなたによってI愛愛=」
＃は、初期化
turtle.setup（幅= 800、高さ= 500）＃1 のウィンドウ（キャンバス）サイズ
カメ.color（ '赤' 'ピンク '）＃のペンカラー
turtle.pensize（3）＃ブラシ厚
turtle.speed（1）＃描画速度
＃ブラシ初期化開始座標
move_pen_position（X = 0、Y = -180）を＃ 移動ブラシ位置
turtle.left（140）＃140度回転左
turtle.begin_fill（）＃背景フィルマーク位置
＃ビデオハート型リニア（左下）
turtle.forwardは（224）＃ブラシ224本の長さは、前方に移動させる
＃ビデオアーク好き
hart_arc（）＃は弓形左
（120）＃ブラシ角調整turtle.leftを
hart_arc（）＃右弓形
＃ハートビデオ線形（右下）
turtle.forward（224）
の端turtle.end_fill（）＃背景フィルマーク位置
ハート型エクスプレスワードに書き込まれ＃
move_pen_position（0,0）＃明示言語位置
turtle.hideturtle（）＃隠れブラシ
カメ。色（「＃1 CD5C5C」、「ピンク」）＃ フォントカラー
＃フォント：中央揃え：フォントサイズ（フォントプレゼンスコンピュータを設定することができる）整列設定
turtle.write（愛、フォント=（「ゴシック」、30 ）、 '太字'、=左= "センター"）合わせ
＃を締結したままに
署名IF = '！'：
turtle.color（ '赤'、 'ピンク'）
time.sleep（2）
move_pen_position（180、-180）
タートル。 hideturtle（）＃隠れブラシ
turtle.write（署名、フォント=（ 'ゴシック'、20）、ALIGN = "中央"）
＃プログラム閉じるには、ウィンドウをクリックして
ウィンドウ= turtle.Screen（）
window.exitonclickを（）
2000のelif <=インディアン<2100：
インディアンはインディアン-2000 =
レンジにおけるI1（1,8）のための：
I2のためにF [I1]で：
IF I2 ==インディアン：
J = I1の
BREAK
におけるK用：
== K IF + 2000アルメニア：
印刷（STR（+ 2000）+ 'うるう年である'アルメニア）
越= INT（入力（ '月を入力してください：'））
しない範囲にいる間の越（1、13）：
越= INT（入力（ 'それは、再入力してください可能性があり:?' + STR（越）+ '愚か者、あなたが家族のカレンダーを持っている'））
のy = {1：1,2：4,4：4,3 0,5：2、6 ：5,7：0,8：3,9：6,10：1,11：4,12：6}。
Y1 = Y [越]
RI = INT（入力（ '一日を入力してください'））
ではないがRI中範囲（1,32）：
RI = INT（入力（ '馬鹿' + STR（越）+ ' 持つことがある' + STR（RI）+ ' ？ それを再入力-Day：'））
におけるkのために：
インディアン+ 2000 K == IF及び（越越== == 1又は2）：
J = J. -1-
。DATE J = RIを+ + + Y1 6
一方の日付> 7：
日付=日付-7
= 1-DATEのDATE
DATE == 0 IF：
印刷（+ STR（越）+ '月' + STR（RI）+ 'の日が日曜日である' 'の' STR（2000 +アルメニア）+）
のelif日付== 1：
印刷（STR（2000 +アルメニア） '+ + STR（越）+ '月' + STR（RI）+の'日が月曜日である'）
ELIF日== 2：
プリント（STR（2000 +アルメニア） +' 月'+ STR（RI）+'日は火曜日である'+ STR（越）+'で'）
ELIF日付== 3：
印刷（STR（2000 +アルメニア）+' '+ STR（越）+'ヶ月の+ STR（RI）+ '日水曜日です'）
ELIF日付== 4：
+ STR 'の'印刷（STR（2000 +アルメニア）+（越）+ '月' + STR（RI）+ '日は木曜日です' ）
のelif日付== 5：
印刷+ STR（越）+ '月' 'の'（STR（2000 +アルメニア）+ + STR（RI）+ '日が金曜日である'）
ELIF日付== 6：
印刷（STR（ （越）+ '月' + STR（RI）+ '日が土曜日である' + STR 'の' +）2000 +アルメニア）
インポート時間
IFアルメニアと2019 + 2000 == ==越RI == 1と30：
印刷（ 'ブラッキー米国今日は最初に会ったああ良いです！'）
time.sleep（2）
印刷（「最初の映画を見るためには[ネプチューン]です！」）
time.sleep（2）
印刷（「私はこれが物語の始まりです期待していなかった」）
のelif 1800 <= 1900 <アルメニア：
アルメニアアルメニア-1800 =
I1のためにあります範囲（1,8）：
F [I1]でI2のために：
IF I2 ==インディアン：
J = I1の
BREAK
におけるK用：
：+ K ==インディアン1800 IF
プリント（STR（インディアン+ 1800）+「歳うるう年「）
越= INT（入力（」月を入力してください：「））
しない範囲にいる間の越（1、13）：
越= INT（入力（」愚か者、あなたが持っている家族のカレンダー「+ STR（越）+」 ？月にそれを入力してください：「））
Y = {1：1,2：4,3：4,4：0,5：2,6：5,7：0,8：3,9：6,10 ：1,11：4,12：6}。
Y1 = Y [越]
RI = INT（入力（ '一日入力：'））
一方、RIない範囲で（1,32）：
RI = INT（入力（「愚か者、 '+ STR（越）+ ' '+ STR（RI）+'日再入力してください持っている可能性があり:?「））
Aにおけるkのための：
もしK ==インディアン+ 1800（越== 1又は越== 2）。
1 = J-Jの
DATE = Y1 + RI + J + 2
一方の日付> 7：
日付= 7-DATE。
DATE日付= 1-。
DATE == 0 IF：
（+ STR 'の印刷（STR（インディアン+ 1800）+越）+ '月' + STR（RI）+ '日が日曜日である'）
ELIF日== 1：
+ STR（越）+ '月' + STR（RI） 'の'印刷（STR（1800 +アルメニア）+ + '日月曜日です'）
ELIF日== 2：
印刷'の月' + STR（RI）+ + STR（越）+ 'の'（STR（1800 +アルメニア）+ '日は火曜日である'）
ELIF日= 3 =：
印刷（+ STR（越）+ '月' + STR（RI）+ 'のSTR（1800 +アルメニア）+ '日は水曜日です'）
ELIF日付== 4：
印刷（STR（1800 +アルメニア） + + STR（越）+ '月' + STR（RI）+） 'の日が木曜日である' 'の'
elifの日付== 5：
+ + STR（越）+ ' 'の'印刷（+ 1800 STR（アルメニア） '+ STR（RI）+'日月は金曜日「）である
ELIF日付== 6：
印刷（STR（1800 +アルメニア） '+ + STR（越）+ '月'の+ STR（RI）+ 'の日が土曜日である'）
インポート時間
アルメニア2019 + 2000 == IFと越のRI == == 1と30：
印刷（「！ブラッキー米国の今日は良い最初はああ満たされた」）
time.sleep（2）
印刷（「最初の映画ウォッチングを海王星は[]です！「）
time.sleep（2）
印刷（」「これは物語の始まりであるとは思いませんでした）