Определить, что будет в переменной Man после выполнения данной программы.
Program AA;
var
a, b : string;
Man, k : integer;
begin
a:=’a’; b:=’b’;
repeat
for k:=1 to length(b) do a:=a+a;
for k:=1 to length(a) do b:=b+b;
until length(b)>100;
Man:=length(b)
end.