const
  Good = [4, 15, 30, 56, 60];
...
var
  i: Integer;
  s: String;
...
begin
  s := '';
  for i := 1 to 100 do
    if i in Good then s := s + '1'
    else s := s + '2';
...
end;