From 286d933527eb4d3aeb72e16aa5b8b621a4ef6259 Mon Sep 17 00:00:00 2001
From: Erich Eckner <git@eckner.net>
Date: Tue, 29 Oct 2019 15:59:41 +0100
Subject: initial commit

---
 .gitignore |  2 ++
 mittle.pas | 31 +++++++++++++++++++++++++++++++
 2 files changed, 33 insertions(+)
 create mode 100644 .gitignore
 create mode 100644 mittle.pas

diff --git a/.gitignore b/.gitignore
new file mode 100644
index 0000000..2f1283c
--- /dev/null
+++ b/.gitignore
@@ -0,0 +1,2 @@
+mittle
+*.o
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.
-- 
cgit v1.2.3-70-g09d2