program Second;
var arr: array[1..15] of integer;
var i: integer;
var c: integer;
begin
    c := 0;
    for i := 1 to 15 do
    begin
        arr[i] := random(6);
        if arr[i] = 3 then
          arr[i] := 33;
    end;
    for i := 1 to 15 do
    begin
        write(arr[i], ' ');
    end;
end.