Pertambahan Jumlah Penduduk

Pertambahan jumlah penduduk program jumlah_penduduk; uses wincrt; var n,k,z,l,x:real; t,w:integer; begin writeln; writeln('Menentukan Jumlah penduduk dan Pertambahan penduduk tahun 2000 s/d -'); writeln; write('Input(tahun)='); readln(w); clrscr; n:=220000000; writeln('******************************************************************'); writeln(' Tahun

Jumlah Penduduk

Pertambahan Penduduk ');

writeln('******************************************************************'); for t:=2000 to w do begin k:=(9*n)/100; l:=(4*n)/100; z:=k-l; x:=z+n; writeln(' ',t,'

',n:0:0,'

',z:0:0);

n:=x; end; end.