diff --git a/pascal/SumAverage.pas b/pascal/SumAverage.pas
index 970cc55..50c0674 100644
--- a/pascal/SumAverage.pas
+++ b/pascal/SumAverage.pas
@@ -17,13 +17,13 @@ begin
   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);
+  writeln('Number of integers = ', NUM_COUNT);
+  writeln('Number1 = ', num1);
+  writeln('Number2 = ', num2);
+  writeln('Number3 = ', num3);
+  writeln('Number4 = ', num4);
+  writeln('Number5 = ', num5);
+  writeln('Sum = ', sum);
+  writeln('Average = ', mean);
 end.
 
diff --git a/pascal/SumAverage2.pas b/pascal/SumAverage2.pas
new file mode 100644
index 0000000..91fd457
--- /dev/null
+++ b/pascal/SumAverage2.pas
@@ -0,0 +1,40 @@
+program SumAverage2;
+
+const NUM_COUNT = 5;
+
+var
+  num1, num2, num3, num4, num5 : integer;
+  sum : integer;
+  mean : real;
+
+begin
+  writeln('Enter the first number:');
+  readln(num1);
+
+  writeln('Enter the second number:');
+  readln(num2);
+
+  writeln('Enter the third number:');
+  readln(num3);
+
+  writeln('Enter the fourth number:');
+  readln(num4);
+
+  writeln('Enter the fifth number:');
+  readln(num5);
+
+  sum := num1 + num2 + num3 + num4 + num5;
+  mean := sum / NUM_COUNT;
+
+  writeln();
+  writeln('Number of integers = ', NUM_COUNT);
+  writeln();
+  writeln('Number1:', num1:8);
+  writeln('Number2:', num2:8);
+  writeln('Number3:', num3:8);
+  writeln('Number4:', num4:8);
+  writeln('Number5:', num5:8);
+  writeln('================');
+  writeln('Sum:', sum:12);
+  writeln('Average:', mean:8);
+end.