Объяснение:
& не стоит у меня, но выполняет свои действия, у себя его ставьте!
Вот у меня с видимыми и невидимыми формулами: (См ниже)
Program asd;
var a,b:integer;
begin
a:=10;
writeln('1=10');
for b=2 to 10 do
begin
writeln(b,'=',a+((a/100)*10);
a:=a+((a/100)*10);
end;
end.
1843 год построена первая телеграфная линия<span> в </span>России<span> (Петербург Царское Село).
</span>