Очень легко: так как компьютеры разные, объясню. Просто наведите курсор мышки на <span>кнопку Развернуть/Восстановить подождите несколько секунд и появиться текст, И вы узнаете, что он означает.)))</span>
Program gt;
var a,b,p:real;
i:integer;
begin
a:=10000;
p:=7.4;
for i:=1 to 8 do
begin
a:=a+a*p/100;
end;
writeln(a);
<span>end.</span>
<span>(((1v0)v1)v1)
</span>((1v1)v1)
(1v1)
1
ВОТ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,