Sum and Product of Two Numbers in Turbo Pascal

In this article I would like to share with you a sample program that will ask the user to give two numbers and then our program will compute the sum and product of the two given numbers using Turbo Pascal for Windows as our compiler. The code uses function to return the computed value. I hope you will find my work useful. Thank you.

My email address are the following jakerpomperada@gmail.com and jakerpomperada@yahoo.com.

My mobile number here in the Philippines is 09173084360.

Sample Program Output

Program Listing

Program Square_Number;

Uses WinCrt;

var val_1,val_2, add,multiply  : integer;

Function sum(a,b : integer) : integer;

Begin

   sum := (a+b);

End;

Function product(a,b : integer) : integer;

Begin

   product := (a*b);

End;

Begin

clrscr;

 writeln('SUM AND PRODUCT OF TWO NUMBERS IN PASCAL');

 writeln;

 Write('Enter First Number : ');

 Readln(val_1);

 Write('Enter Second Number : ');

 Readln(val_2);

   

 add := sum(val_1,val_2);

 multiply := product(val_1,val_2);

  

 writeln;

 write('The sum of ',val_1, ' and ' ,val_2, ' is ' ,add,'.');

 writeln;

 write('The product of ',val_1, ' and ' ,val_2, ' is ' ,multiply,'.');

 writeln;

 writeln;

 writeln('  END OF PROGRAM  ');

readln;

End.