tutorials
/
tutorials
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Add first Pascal source file

This commit is contained in:
Timothy Warren 2021-09-16 15:57:27 -04:00
parent 28f734d8dc
commit ee883decc3
1 changed files with 29 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
pascal/SumAverage.pas Normal file
View File

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