Hi,
erstmal ein Herzliches Willkommen in der
DP 
1. Macht hier keiner deine Hausaufgaben
2. Das mit dem nur ganze Proceduren heißt ja dass du höchstwahrscheinlich nur den Code kopieren willst

3. Ist das doch gar nicht so schwer^^:
Nimm die Funktion Draw und zeihne eins, dazu findest du hier über die Suche bestimmt ne Menge Sachen.