Simple Interest Solver In Pascal

A simple loan interest solver that I wrote using Pascal as my programming language that will solve for the interest rate of the loan of a person. I am using Turbo Pascal 5.5 For DOS as my Pascal compiler.

If you  have some questions please send me an email at jake.r.pomperada@gmail.com and jakerpomperada@yahoo.com. 

My mobile number here in the Philippines is 09173084360.

Sample Program Listing

Program Listing

Program Simple_Interest_Solver;

Uses Crt;

Var p,r,t,solve_interest : Real;

Begin

  p:=0.00;

  r:=0.00;

  t:=0;

  solve_interest := 0.00;

  clrscr;

  write('Simple Interest Solver');

  writeln; writeln;

  write('Enter the Principle Amount : Php ');

  readln(p);

  write('Enter the Rate of Interest :     ');

  readln(r);

  write('Enter the Time Period      :     ');

  readln(t);

  solve_interest:=(p*r*t)/100;

  writeln; writeln;

  write('The simple interest is Php ',solve_interest:5:2,'.');

  writeln; writeln;

  write('End of Program');

  readln;

End.