WS1 TUDD/WS1 Teilnehmer14

Wiki-Quelltext dieser Seite.

<language>Pascal</language>
Das ist ein Test
<code id="51406c7ac02b9">
function gauss(n: Integer): double;
var i: Integer;
summe: Double;
begin
  summe:=0;
  for i:=0 to n do
    summe:=summe+i;
  result:=summe;
end;
</code>

<run id="51406c7ac0312">

</run>