Понаблюдайте за комнатными растениями. Как взаимосвязаны положение листьев в пространстве и направление источника света?

Program test;
var i,n,schet:integer;s:string;
begin
readln(n);
for i:=1 to n do
s:=s+inttostr(n);
schet:=length(s);
writeln(schet);
end.