Pascal бабу ягу пригласили на должность директора фирмы. в первый день к ней пригласили двух курьеров. каждый последующий день количество курьеров устраивалось. баба яга согласилась когда прислали на менее 500 курьеров . сколько курьеров было прислано в 2,3, день. на какой день баба яга согласилась.
var i,d,s:longint;
begin
s:=2;d:=2;i:=1;
while(s <500) do
begin
i:=i+1;
d:=3*d;
s:=s+d;
if(i mod 2 =0)then writeln( i,' тый день ', d);
end;
writeln(s);
end.