proc quadrat (int n)
"USAGE:      quadrat(n); int n
RETURN:      int, Summe der ersten n ungeraden Zahlen
KEYWORDS:    ungerade Zahlen, Quadrat
EXAMPLE:     example quadrat;   zeigt ein Beispiel"
{
  // Fehler bei der Eingabe abfangen
  if (n < 0)
  {
    return (0);
  }
  // Beginn der eigentlichen Prozedur
  else
  {
    int i;
    int ergebnis = 0;    
    for (i=1;i<=n;i++)
    {
      ergebnis = ergebnis + (2*i-1);
    }
    return (ergebnis);
  }
}
example
{
  "Beispiel:";
  echo = 2;
  quadrat(3);
  quadrat(5);
}