1 files changed, 31 insertions, 0 deletions
diff --git a/mittle.pas b/mittle.pas
new file mode 100644
index 0000000..d488e2f
--- /dev/null
+++ b/mittle.pas
@@ -0,0 +1,31 @@
+program mittle;
+
+uses
+  lowlevelunit, SysUtils;
+
+var
+  Zeile:             ansiString;
+  Zahl,Summe,QSumme: extended;
+  Anzahl:            longint;
+
+begin
+
+while not eof do begin
+  readln(Zeile);
+
+  Anzahl:=0;
+  Summe:=0;
+  QSumme:=0;
+
+  write(erstesArgument(Zeile,' ',false));
+  while Zeile<>'' do begin
+    inc(Anzahl);
+    Zahl:=strToFloat(erstesArgument(Zeile,' ',false));
+    Summe:=Summe+Zahl;
+    QSumme:=QSumme+sqr(Zahl);
+  end;
+  writeln(' '+floatToStr(Summe/Anzahl)+' '+floatToStr(QSumme/Anzahl-sqr(Summe/Anzahl)));
+
+end;
+
+end.