mittle.pas: stddev statt varianz ausgebenHEADmaster

1 files changed, 1 insertions, 1 deletions

diff --git a/mittle.pas b/mittle.pas
index d488e2f..3fe3371 100644
--- a/mittle.pas
+++ b/mittle.pas
@@ -24,7 +24,7 @@ while not eof do begin
     Summe:=Summe+Zahl;
     QSumme:=QSumme+sqr(Zahl);
   end;
-  writeln(' '+floatToStr(Summe/Anzahl)+' '+floatToStr(QSumme/Anzahl-sqr(Summe/Anzahl)));
+  writeln(' '+floatToStr(Summe/Anzahl)+' '+floatToStr(sqrt(QSumme/Anzahl-sqr(Summe/Anzahl))));
 
 end;