ساختارها

ساختار مستطیل:
    همگانی پهنا: صحیح = ۱
    همگانی بلندی: صحیح = ۱
    همگانی روال مساحت(): صحیح:
        برگشت این.پهنا * این.بلندی
    پایان
پایان

روال ریشه:
    زمین := مستطیل { پهنا = ۱۲, بلندی = ۸ }
    سرچاپ "مساحت زمین:", زمین.مساحت()
پایان

ساختار نقطه:
    همگانی ایکس: صحیح = ۰
    همگانی وای: صحیح = ۰
پایان

روال ریشه:
    ن := نقطه { ایکس = ۳، وای = ۴ }
    سرچاپ ن
    سرچاپ نقطه {}
پایان

ساختار شمارنده:
    مقدار: صحیح = ۰
    همگانی روال خواندن(): صحیح:
        برگشت این.مقدار
    پایان
    همگانی ناپایا روال یکی‌بیشتر():
        این.مقدار += ۱
    پایان
پایان

روال ریشه:
    ناپایا ش := شمارنده {}
    ش.یکی‌بیشتر()
    ش.یکی‌بیشتر()
    سرچاپ ش.خواندن()
پایان

ساختار رنگ:
    همگانی سرخ: صحیح = ۰
    همگانی سبز: صحیح = ۰
    همگانی آبی: صحیح = ۰
    همگانی پایا بیشینه := ۲۵۵
    همگانی ایستا روال خاکستری(مقدار: صحیح): رنگ:
        برگشت رنگ { سرخ = مقدار، سبز = مقدار، آبی = مقدار }
    پایان
پایان

روال ریشه:
    سفید := رنگ.خاکستری(رنگ.بیشینه)
    سرچاپ سفید
پایان

ساختار جانور:
    همگانی نام: رشته = ""
    همگانی روال معرفی(): رشته:
        برگشت "من " + این.نام + " هستم"
    پایان
پایان

ساختار سگ:
    همگانی شامل جانور
    همگانی نژاد: رشته = ""
پایان

روال ریشه:
    س := سگ { نام = "رکس"، نژاد = "شکاری" }
    سرچاپ س.معرفی()
    سرچاپ س.نام، س.نژاد
پایان