GDP

uses crt;
var
  nam,a:integer;
  gdp,v:real;
begin
  clrscr;
  write('GDP nam 2000 : '); readln(a);
  write('Toc do tang truong : '); readln(v);
  nam:=2000; gdp:=a;
  writeln('nam gdp');
  repeat
    writeln(nam,' ',gdp:0:1);
    nam:=nam+1;
    gdp:=gdp+v*gdp;
  until (gdp >= 2*a);
  readln;
end.