найдите ошибку пожалуйста)
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. если вот так, то всё получается, спасибо))))