\psset{xunit=1cm, yunit=1cm}
%\psframebox{
\begin{pspicture}(0.1,-0.2)(8,5.2)
%\psgrid(0,0)(7,5.5)


\rput[lC](0.5,4.6875){Anzahl $n$ der Summanden einlesen}    
\rput[lC](0.5,4.0625){(ohne Anfangssummand)}    
\rput[lC](0.5,3.4375){Summand gleich $1$ setzen}
\rput[lC](0.5,2.8125){Summe gleich $1$ setzen } 
\rput[lC](0.5,2.1875){Für $i=1$ bis $n$ }    
\rput[lC](1,1.5625){Summand durch $\frac{-\text{Summand}}{i}$ ersetzen}
\rput[lC](1,0.9375){Summe durch Summe $+$ Summand ersetzen}
\rput[lC](0.5,0.3125){Summe ausgeben}

\psframe(0.2,0)(7.9,5)
\psframe(0.2,3.75)(7.9,5)
\psframe(0.2,3.125)(7.9,3.75)
\psframe(0.2,2.5)(7.9,3.125)
\psframe(0.8,1.25)(7.9,1.875)
\psframe(0.8,0.625)(7.9,1.25)
\psframe(0.2,0.0)(7.9,0.625)
\end{pspicture}%}
%%http://sites.inka.de/picasso/latex.html


%ticks=none,labels=none]{->}(