In this article I would like to share with you a simple program that will ask the user to give five numbers and the our program will compute the sum of the five number being provided by our user. I am using Turbo Pascal for Windows in writing this program.
I am currently accepting programming work, it project, school
programming projects , thesis and capstone projects, IT consulting
work and web development work kindly contact me in the following email address for further details. If you want to advertise in my website kindly contact me also in my email address also. Thank you.
My email address are the following jakerpomperada@gmail.com and jakerpomperada@yahoo.com.
My mobile number here in the Philippines is 09173084360.
My telephone number at home here in Bacolod City, Negros Occidental Philippines is +63 (034) 4335675.
Sample Program Output
Program Listing
sum.pas
(* Written By: Mr. Jake R. Pomperada *)
(* May 22, 2018 *)
(* Product of Bacolod City, Negros Occidental Philippines *)
Program SumofFive;
Uses WinCrt;
Var
a,b,c,d,e,sum : Integer;
Begin
Write('Sum of Five Numbers in Turbo Pascal');
Writeln;
Writeln;
Write('Written By Mr. Jake R. Pomperada, MAED-IT');
Writeln;
Writeln;
Write('Give Five Numbers : ');
Readln(a,b,c,d,e);
Writeln;
Writeln;
sum := (a+b+c+d+e);
Writeln('The sum of five numbers is ',sum,'.');
Writeln;
Writeln('End of Program');
Writeln;
Readln;
End.
