Твоя программа не будет работать правильно
Вот как надо
var years, start:real;
begin
years := 0;
start := 10000;
while start < 20001 do
begin
start := start + start / 100 * 5;
years := years + 1;
end;
writeln(years:0:0, ' years');
readln();
end.
<span>4 минуты тому</span>
Program P1;
uses
Graph,Crt;
var
d,m,i,k : integer;
x,y,x0,y0,r : integer;
a,b : real;
begin
X=-1
p=1
a=[]
while x!=0:
x=int(input())
p*=x
a+=[p]
for i in a:
print(i)
52 / 2 = 2626 / 2 = 1313 + 1 = 1414 / 2 = 7
Записываем в обратном порядке: 1211