Program TR;
var S, d: integer;
begin
S:=0;
for d:=2 to 7 begin do S:=S+1/10*S;
writeln('S=',S);
readln
end.
S:=10
ошибка перед do
Program TR;
var S:real; d:integer;
begin
S:=10;
for d:=2 to 7 do S:=S+1/10*S;
writeln('S=',S);
readln
end. если вот так, то всё получается, спасибо))))
я не вижу ни одной знакомой буквы! ты везде ошиблась
в данном случае перед var надо uses crt.
и не забывай ставить ; в конце строк.
s+1/10*s получается деление на ноль при s=0.
for d:=2 to 7 do S:=... begin не нужно (а если он есть, то потом нужно ставить end)
опиши S:real;
бегин лишний в цикле, с - реал. пробуй дальше
Ошибка в наличии begin перед do. Синтаксис оператора for такой:
for d:=2 to 7 do оператор;
Если в теле цикле у тебя должно быть несколько операторов, то они берутся в блок begin ...end:
for d:=2 to 7 do begin оператор1; оператор2; оператор3 end;
Поскольку в данном случае в теле цикла только один оператор, то никакого begin ...end не надо вообще.
Надо приводить условие. Мало ли чтьо синтаксически будет правильно, в большинстве случаев все равно будет выдавать что-нибудь вроде чисел прошлогоднего календаря.. . 
var s:real; d:integer;
begin s:=10; for d:=2 to 7 do s:=1.1*s; writeln('S=',s:0:7); readln end.
А лучше просто
begin writeln('S=',10*exp(ln(1.1)*6):0:7); readln end.
do перед begin должно идти. и еще не хватает end;
вот так
⇢