30 lines
541 B
ObjectPascal
30 lines
541 B
ObjectPascal
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 = ', NUM_COUNT);
|
|
writeln('Number1 = ', num1);
|
|
writeln('Number2 = ', num2);
|
|
writeln('Number3 = ', num3);
|
|
writeln('Number4 = ', num4);
|
|
writeln('Number5 = ', num5);
|
|
writeln('Sum = ', sum);
|
|
writeln('Average = ', mean);
|
|
end.
|
|
|