From af5b5a82e2f0e4283fb99b061114110950c9802d Mon Sep 17 00:00:00 2001
From: Erich Eckner <git@eckner.net>
Date: Tue, 29 Oct 2019 16:00:59 +0100
Subject: mittle.pas: stddev statt varianz ausgeben

---
 mittle.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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;
 
-- 
cgit v1.2.3-54-g00ecf