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

алг Подводный мир
нач
осьминог(150, 270)

рыба(500, 150)
рыба(550, 250)

водоросль(350, 400)
водоросль(400, 375)
водоросль(450, 400)

кисть(RGB(95, 135,8))
окружность(420, 390, 25)
окружность(465, 390, 25)
окружность(370, 405, 20)

кисть(синий)
залить(0, 0)
кон



алг рыба (цел x, цел y)
нач
кисть(жёлтый)

треугольник(x + 50, y)
треугольник(x - 10, y - 10)
треугольник(x - 10, y + 15)
эллипс(x - 50, y - 15, x + 50, y + 15)

кисть(чёрный)
окружность(x - 35, y - 2, 3)
кон

алг треугольник (цел x, цел y)
нач
в точку(x, y)
линия в точку(x + 15, y + 25)
линия в точку(x + 15, y -25)
линия в точку(x, y)
залить(x + 5, y + 5)
кон

алг осьминог (цел x, цел y)
нач
кисть(фиолетовый)
окружность(x, y, 70)

щупальце1(x + 65, y + 25)
щупальце2(x + 50, y + 50)
щупальце3(x - 40, y + 55)
щупальце4(x - 65, y + 25)

кисть(чёрный)
окружность(x - 25, y - 15, 17)
окружность(x + 25, y - 15, 15)
кон

алг щупальце1(цел x, цел y)
нач
в точку(x, y)

линия в точку(x + 50, y + 30)
линия в точку(x + 90, y + 15)
линия в точку(x + 130, y + 30)
линия в точку(x + 90, y + 35)
линия в точку(x + 45, y + 60)
линия в точку(x - 10, y + 20)

залить(x + 5, y + 5)
кон


алг щупальце2(цел x, цел y)
нач
в точку(x, y)

линия в точку(x + 30, y + 50)
линия в точку(x + 30, y + 75)
линия в точку(x, y + 130)
линия в точку(x + 5, y + 55)
линия в точку(x - 25, y + 15)

залить(x, y + 5)
кон

алг щупальце3(цел x, цел y)
нач
в точку(x, y)

линия в точку(x - 30, y + 50)
линия в точку(x - 30, y + 75)
линия в точку(x, y + 130)
линия в точку(x - 5, y + 55)
линия в точку(x + 25, y + 15)

залить(x + 5, y + 10)
кон


алг щупальце4(цел x, цел y)
нач
в точку(x, y)

линия в точку(x - 65, y + 40)
линия в точку(x - 70, y + 75)
линия в точку(x - 35, y + 110)
линия в точку(x - 40, y + 60)
линия в точку(x + 25, y + 30)

залить(x + 5, y + 15)
кон



алг водоросль(цел x, цел y)
нач

в точку(x, y)

линия в точку(x + 15, y - 90)
линия в точку(x - 10, y - 150)
линия в точку(x + 15, y - 200)
линия в точку(x + 25, y - 150)
линия в точку(x + 50, y - 90)
линия в точку(x + 35, y)
линия в точку(x, y)

кисть(зелёный)
залить(x + 5, y - 5)
кон