[أمة الله-2]

السلام عليكم و رحمة الله و بركاته
أختي الكريمة سأصيغ لك حل الأخ بلغة باسكال
PROGRAM NH;
const
x=20000000;
var
i:integer; y,n:real;
begin
y:=0;
n:=x;
for i:=1to 50 do
begin
y:=(5*n)/100;
n:=n+y;
end;
write('N: ',n);
end.
ارجو أن أكون قد وفقت.