Someone

Program Interests (Inputfile, outputfile);



Var

counter: Real;
Infile, datafile: text;
Balance: Real;
Rate: Real;
sum, sum2, sum3, sum4, sum5, sum6, sum7, sum8, sum9, sum10 : Real;


Begin

Assign(infile,'c:\mlkia.txt');
Assign(datafile,'c:\fux.txt');
reset(infile);
Rewrite(datafile);
writeln (outfile,'BALANCE     RATE      Balcane for the next ten years');
  While (not EOF (Infile)) Do
      Begin
      Read(Infile, balance);
      Readln(infile,rate);


sum:=balance+(rate/100)*balance;
sum2:=sum+(rate/100)*sum;
sum3:=sum2+(rate/100)*sum2;
sum4:=sum3+(rate/100)*sum3;
sum5:=sum4+(rate/100)*sum4;
sum6:=sum5+(rate/100)*sum5;
sum7:=sum6+(rate/100)*sum6;
sum8:=sum7+(rate/100)*sum7;
sum9:=sum8+(rate/100)*sum8;
sum10:=sum9+(rate/100)*sum9;

writeln(datafile,Balance:3:1,'   ',rate:3:1,'   ',sum:3:1,'   ',sum2:3:1,'   ',sum3:3:1,
'', sum4:3:1,'    ', sum5:3:1,'    ', sum6:3:1,'   ', sum7:3:1,'     ', sum8:3:1,'    ', sum9:3:1,'     ',sum10:3:1);

end;
close(datafile);
close(infile);
end.