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

program var2;
var
i: byte;
s: shortstring = '';

function replace(k,l,m:shortstring):shortstring;
var
temp_pos: byte;

begin
temp_pos := pos(k,l);
delete(k,temp_pos,length(l));
insert(m,k,temp_pos);

replace := k;
end;

procedure MyProcedure(params);
begin

end;

begin
for i:=1 to 247 do s := s + '5';

while ((pos('222',s) <> 0) or (pos('555',s) <> 0)) do
begin
if (pos('222',s) <> 0) then s := replace(s,'222','5')
else s := replace(s,'555','2');
end;

WriteLn(s);
end.