лабы / лаб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.