41 lines
789 B
ObjectPascal
41 lines
789 B
ObjectPascal
program SumAverage2;
|
|
|
|
const NUM_COUNT = 5;
|
|
|
|
var
|
|
num1, num2, num3, num4, num5 : integer;
|
|
sum : integer;
|
|
mean : real;
|
|
|
|
begin
|
|
write('Enter the first number:');
|
|
readln(num1);
|
|
|
|
write('Enter the second number:');
|
|
readln(num2);
|
|
|
|
write('Enter the third number:');
|
|
readln(num3);
|
|
|
|
write('Enter the fourth number:');
|
|
readln(num4);
|
|
|
|
write('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.
|