лабы / лаб5 / допы / var13

program var13;
var
text: string;
now_count: integer;

function makeStr(count:integer):string;
var
result: string = '';
i: integer;
begin
for i:=1 to count do result := result + '1';
makeStr := result;
end;

function replaceStr(source,destination,r:string):string;
var temp_pos: integer;
begin
temp_pos := pos(destination,source);
if (temp_pos <> 0) then
begin
delete(source,temp_pos,length(destination));
insert(r,source,temp_pos);
end;

replaceStr := source;
end;

function algorythm(s:string):string;
begin
while (pos('111',s) <> 0) do
begin
s := replaceStr(s,'111','2');
s := replaceStr(s,'222','1');
end;

algorythm := s;
end;

begin
for now_count := 50 to 100 do
begin
text := makeStr(now_count);
text := algorythm(text);

if (text = '22') then
begin
WriteLn('Наименьшее кол-во единиц: ', now_count);
break;
end;
end;
end.