Паскаль старик беря в жены старуху обещал ей каждый год ловить по золотой рыбке что бы та выполнила три ее желания. страрухе вскоре надоело полчуть по 3 желание в год и она приказала мужу каждый третий год ловить на одну золотую рыбку больше чем в предыдущие через сколько лет совместной жизни у старухи исполнится 33 желания
program HelloWorld;
var x,i :integer;
begin
x := 0; // количество желаний
i := 0; // года совместной жизни
while(x < 33) do
begin
i := i+1;
if i mod 3 = 0 then
begin
x:= x + 2*3
end
else
begin
x:= x + 3
end;
write('Год: ');
write(i);
write(' кол-во желаний: ');
write(x);
writeln('');
end;
end.
ответ: 9 лет