From ee883decc34be3e737db0de15d2441e9a4246018 Mon Sep 17 00:00:00 2001 From: Timothy Warren Date: Thu, 16 Sep 2021 15:57:27 -0400 Subject: [PATCH] Add first Pascal source file --- pascal/SumAverage.pas | 29 +++++++++++++++++++++++++++++ 1 file changed, 29 insertions(+) create mode 100644 pascal/SumAverage.pas diff --git a/pascal/SumAverage.pas b/pascal/SumAverage.pas new file mode 100644 index 0000000..970cc55 --- /dev/null +++ b/pascal/SumAverage.pas @@ -0,0 +1,29 @@ +program SumAverage; + +const NUM_COUNT = 5; + +var + num1, num2, num3, num4, num5 : integer; + sum : integer; + mean : real; + +begin + num1 := 128; + num2 := 256; + num3 := 64; + num4 := 1024; + num5 := 8; + + sum := num1 + num2 + num3 + num4 + num5; + mean := sum / NUM_COUNT; + + writeln('Number of integers = ':25, NUM_COUNT); + writeln('Number1 = ':25, num1); + writeln('Number2 = ':25, num2); + writeln('Number3 = ':25, num3); + writeln('Number4 = ':25, num4); + writeln('Number5 = ':25, num5); + writeln('Sum = ':25, sum); + writeln('Average = ':25, mean); +end. +