\documentclass[ngerman]{article}
\usepackage[T1]{fontenc}
\usepackage[utf-8]{inputenc}
\setcounter{secnumdepth}{0}
\setcounter{tocdepth}{0}

\begin{document}
\vfill

\title{Eine weitere Lösung für Euler 9}
\author{Ulrich Hoffmann}
\maketitle*

Hier eine weitere Lösung für das Problem 9 des Euler--Projekts \url{http://projecteuler.net/} (vgl.\ \emph{Projekt Euler - Problem 9} in Heft 2/2008 Seite 25). Diese Lösung kommt ohne das Ziehen der Quadratwurzel aus.

\begin{quote}
\listinginput[1]{1}{2008-03/Euler9.fs}
\end{quote}
\bigskip

\begin{verbatim}
Gforth 0.6.2, Copyright (C) 1995-2003 Free Software Foundation, Inc.
Gforth comes with ABSOLUTELY NO WARRANTY; for details type `license'
Type `bye' to exit
  ok
include Euler9.fs 
a=200 b=375 c=425 
a+b+c=1000 
a*b*c=31875000  ok
\end{verbatim}

\vspace{-10ex}
\hfil\includegraphics[width=0.4\textwidth]{2008-03/Euler9}

\end{document}