Чаму многія феадалы ператваралі свае панскія палі ў пашы?

Program chik;
var w,q,s,n,i,h:longint;
begin
s:=1;
q:=1;
h:=1;
w:=1;
while w<100 do
begin
q:=q+1;
h:=h+1;
s:=s*2+q;
w:=w+s;
writeln(w);
end;
writeln(w,' ',h);
end.