использовать Рисователь
использовать Клавиатура


алг лист
нач
новый лист(600, 400, оранжевый)
перо(1, белый)
шрифт("Arial", 48, да, нет)
надпись(140, 200, "Игра кукуруза")
перо(1, серый)
шрифт("Arial", 24, нет, нет)
надпись(150, 250, "нажмите пробел для начала")
цел клавиша = 0
нц 
если сигнал клав то
клавиша := код клав
выбор
при клавиша = КЛ_ПРОБЕЛ: выход
всё
всё
кц
новый лист(600, 400, серый)
цел х1 = 0, у1 = 390
кисть(зелёный)
прямоугольник(х1, у1, 2000, 2000)
цел х=200, у=200
перо(1, прозрачный)
кисть(синий)
окружность(х, у, 20)
цел ч = 0
цел х2 = 250, у2 = 250
кисть(красный)
прямоугольник(х2, у2, 200, 500)
цел х3 = 199, у3 = 170
кисть(красный)
прямоугольник(х3, у3, 250, 0)
нц 
кисть(зелёный)
прямоугольник(х1, у1, 2000, 2000)
если сигнал клав то
ч := 0
клавиша := код клав
кисть(серый)
окружность(х, у, 20)
выбор
при клавиша = КЛ_ВВЕРХ: у := у - 10
при клавиша = КЛ_ВНИЗ: у := у + 10
при клавиша = КЛ_W : у := у - 10
при клавиша = КЛ_S : у := у + 10
всё
кисть(синий)
окружность(х, у, 20)
если у >= 380 то
новый лист(600, 400, чёрный)
перо(1, красный)
шрифт("Arial", 48, да, нет)
надпись(140, 200, "Игра Окончина")
выход 
всё
всё
если у >= 380 то
новый лист(600, 400, чёрный)
перо(1, красный)
шрифт("Arial", 48, да, нет)
надпись(140, 200, "Игра Окончина")
выход 
всё
кц
кон