graphsize 800,400
debut:
cls
color yellow
rect 0,0,graphwidth,graphheight
l1$="Un jardinier partage en deux son terrain de 600 m² pour en faire un verger et un potager. "
l2$= "Le verger mesure   ?   m² de plus que le potager."
l3$ ="Quelle est la surface du potager ?"
l4$ ="Quelle est la surface du verger ?"
print l1$
print l2$
print l3$
print l4$
print
print "Donnez cette différence"
Input  a
if a> 600  then
print "Ce nombre est trop grand. Le terrain mesure 600 m²"
input "Appuyez sur une touche pour recommencer", b
goto debut
end if
diff=a
surft=600
surfp=((surft-diff)\2)
surfv=surfp +(diff*1)
verif=(surfp+(surfv*1))
diff2=(diff\2)
 surfp2=(surft-diff)/2
surfv2=surfp2 +(diff*1)
lg=1
long=(lg*surfp)
 long2=(lg*surfv)
 h=60
color black
font "Tahoma",25,500
text 350,10,"PROBLEME"
font "Arial",12,50
l2a$= "Le verger mesure "+ diff + " m² de plus que le potager."
Text  20,80,l1$
Text  20,100,l2a$
Text  20,120,l3$
Text  20,140,l4$
rect(20,200,long,4)
rect(20,240,long2,4)
rect(20,190,5,10)
rect((15+long),190,5,10)
rect(20,230,5,10)
rect((15+long),230,5,10)
rect((15+long2),230,5,10)
font "Arial",60,50
Text  640,150,"}"
font "Arial",30,50
Text  680,180,surft
Text  long+(diff\2),200,diff
font "Arial",12,50
Text 190,270,surft + " - " + diff
Text 220,290,"2"
line (180,290,270,290)
Text 20,280,"Surface du potager :                           = " + surfp2
Text 20,310,"Surface du verger : " + surfp2 + "  +  " + diff + "   = " + surfv2
Text 20,340,"Vérification  : " + surfp2  + "  +  "+ surfv2 + "  =  " +surft 
Text 20,370,"Les surfaces du potager et du verger, mesurent, respectivement, " + surfp2 + " m²  et " + surfv2 + " m²"