program balances(infile,outfile);

   { This is a program that finds the balances for the next 10 years
      Name  : Leonidas Georgiou
      class : 1CS                                                   }

Var
    balance , rate  , value    : real;
    infile  , outfile          : text;
    count                      : integer;

Begin

     assign (infile ,'c:\mlkia.txt'     );
     assign (outfile,'c:\fux.txt');
     reset  (infile );
     rewrite(outfile);
      writeln (outfile,'BALANCE     RATE      Balcane for the next ten years');
      while (not eoln(infile)) do
       begin
        readln (infile,balance,rate);

        value := balance+((rate/100)*balance);

        writeln (outfile);
        writeln (outfile,balance:3:1,'        ',rate:3:1,'      ',value:3:1,'',value:3:1);
      end;
    count:=count+1;
   end.
close (infile );
close (outfile);
end.