Program to calculate the course of a $10,000 loan and to allow interactive
interrogation of pay-out values.

	program payout;
	type
		ara1000 = array[1..1000] of real;
	var
		owe: ara1000;
		bal, pay, intrate: real;
		i, n: integer;
	begin
	bal := 10000.0;
	pay := 500.0;
	intrate := 0.01;
	i := 0;
	while bal > 0 do
		begin
		bal := bal + (intrate*bal) - pay;
		writeln(bal:6:2);
		i := i + 1;
		owe[i] := bal;
		end;
	writeln('Ready');
	writeln('What month?');
	readln(n);
	while n > 0 do
		begin
		writeln(owe[n]:6:2);
		writeln('What month?');
		readln(n);
		end;
	readln;
	end.

Sample output:
(too long)


Same program as above, but with loan amount and other parameters
set interactively.

	program payout;
	type
		ara1000 = array[1..1000] of real;
	var
		owe: ara1000;
		bal, pay, intrate: real;
		i, n: integer;
	begin
	writeln('Loand amount?');
	readln(bal);
	writeln('Monthly payment?');
	readln(pay);
	writeln('Monthly interst rate (annual rate/12)?');
	readln(intrate);
	i := 0;
	while bal > 0 do
		begin
		bal := bal + (intrate*bal) - pay;
		writeln(bal:6:2);
		i := i + 1;
		owe[i] := bal;
		end;
	writeln('Ready');
	writeln('What month?');
	readln(n);
	while n > 0 do
		begin
		writeln(owe[n]:6:2);
		writeln('What month?');
		readln(n);
		end;
	readln;
	end.