作業五: Z

size 300 300
paper 0 0 0

repeat c 0 100
{
repeat x 0 300
{
paper 10
pen ((%2)*10) ((%40)*5)
line 300 300 0 x line 0 0 x 300 line 0 0 300 (300-x)
line 300 300 (300-x) 0

refresh
}
refresh
}