Количество наборов 6, какие это смотри на вложении
Бублічистичний, науковий, політичний, морально етичний, економічний
Var
i:integer;
x:real;
begin
x:=10000;
while x<20000 do
begin
x:=x*1.05;
i:=i+1;
end;
writeln('Ответ: ',i);
end.
Я так думаю, что это "Анализ". Возможно я ошибаюсь