DMIKIR

    TextWindow.ForegroundColor="white"
    TextWindow.WRITE("Тест: Кем вы были в прошлой жизни")
    TextWindow.WriteLine("")
    TextWindow.WriteLine("")
    TextWindow.WRITE("Как вас зовут?-> ")
    im=textwindow.READ()
    TextWindow.WriteLine("")
    TextWindow.WRITE("Год вашего рождения ?-> ")
    DATA=TextWindow.READ()
    TextWindow.WriteLine("")
    TextWindow.WRITE("Месяц рождения ?-> ")
    Mec=TextWindow.READ()
    TextWindow.WriteLine("")
    TextWindow.WRITE("День рождения ?-> ")
    day=textwindow.READ()
    TextWindow.WriteLine("")

    z=Clock.Year-Data-1
    y=Clock.Month-Mec+1
    IF y < 0 THEN
      y = 12 + y - 1
    EndIf
    t=Math.Remainder(30 - day + Clock.Day, 30)
    TextWindow.ForegroundColor="black"
    x=Math.GetRandomNumber(12)
    TextWindow.ForegroundColor="white"
    TextWindow.WRITE("Вас зовут "+im+" вам "+t+" дней "+y+" месяц "+z+" лет, и вы были в прошлой жизни : ")
    IF x=1 THEN
      TextWindow.WriteLine("Тигром")
    EndIf
    IF x=2 THEN
      TextWindow.WriteLine("Мышью")
    EndIf
    IF x=3 THEN
      TextWindow.WriteLine("Слоном")
    EndIf
    IF x=4 THEN
      TextWindow.WriteLine("Котом")
    EndIf
    IF x=5 THEN
      TextWindow.WriteLine("Щукой")
    EndIf
    IF x=6 THEN
      TextWindow.WriteLine("Муравьем")
    EndIf
    IF x=7 THEN
      TextWindow.WriteLine("Зеброй")
    EndIf
    IF x=8 THEN
      TextWindow.WriteLine("Собакой")
    EndIf
    IF x=9 THEN
      TextWindow.WriteLine("Воробьем")
    EndIf
    IF x=10 THEN
      TextWindow.WriteLine("Червяк")
    EndIf
    IF x=11 THEN
      TextWindow.WriteLine("Динозавром")
    EndIf
    IF x=12 THEN
      TextWindow.WriteLine("Пингвином")
    EndIf
    FOR I = DATA TO 2014
      IF Math.Remainder(I, 4) = 0 THEN
        DC = DC + 1
      EndIf
    EndFor
    TextWindow.WriteLine("Вы прожили " + DC + " високосных лет")
    TextWindow.WriteLine("Для окончания теста нажмите любую клавишу")
    TextWindow.ForegroundColor="black"