Может задачу недопонял. Но вот что вышло:
uses crt;
var n,i,s:integer;
begin
clrscr;
readln(n);
for i:=1 to n do
begin
s:=s+i;
end;
writeln(s);
readkey;
<span>end.</span>
254=254*254*254*254*254*254*254*254
Начальный день, когда растение было высотой 20см, считаем нулевым. Через день растение вырастет на 2 см, станет 22 см и это будет 1-й день.