Программа паскаль 122-11*3

var s: string;     i, d: longint;     p: boolean; begin   s := '11111111111111';   for i := 1 to 4782969 do     begin       write(s:16);       d := length(s);       p := true;       while (d > 0) and p do         begin           s[d] := succ(s[d]);           p := s[d] = '4';           if p             then begin               s[d] := '1';               dec(d)             end         end     end;   readln