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. +